G'day guys,
On the last major issue of my automation project and it's a monster.
We have 15 network label printers in the factory running off 1 PC in the office, there is 1 work book MASTER.xlsm with 15 sheets, 1 for each machine.
I need to identify a cell in A1 for example when it gets flagged with "1" then print, print selection to a specific network printer.
I'm able to print the selection with the default printer or active printer but I can't seem to find anything useless stating that \\luke\\192.168.2.XXX PRINT \\luke\192.168.2.XXX etc
Can this be achieved?
2 lots of code which I've tried and BOTH work, apart form the ability to assign a specific network printer, I've tried name+IP address no good I'm afraid.
-------------------------------------
Sub PrintToNetwork2()
If Range("A1").Value = "YES" Then
ActiveSheet.PrintOut ActivePrinter:=”DocuCentre - IVC2263”
-------------------------------------
If Range("F6").Value = "YES" Then
Range("B3,C3,D3,E3,F3,F11,D14").Select
Range("D14").Activate
ActiveSheet.PageSetup.PrintArea = "$B$3:$F$3,$F$11,$D$14"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
end if
----------------------------------------
As always your help is always appreciated.
Luke
On the last major issue of my automation project and it's a monster.
We have 15 network label printers in the factory running off 1 PC in the office, there is 1 work book MASTER.xlsm with 15 sheets, 1 for each machine.
I need to identify a cell in A1 for example when it gets flagged with "1" then print, print selection to a specific network printer.
I'm able to print the selection with the default printer or active printer but I can't seem to find anything useless stating that \\luke\\192.168.2.XXX PRINT \\luke\192.168.2.XXX etc
Can this be achieved?
2 lots of code which I've tried and BOTH work, apart form the ability to assign a specific network printer, I've tried name+IP address no good I'm afraid.
-------------------------------------
Sub PrintToNetwork2()
If Range("A1").Value = "YES" Then
ActiveSheet.PrintOut ActivePrinter:=”DocuCentre - IVC2263”
-------------------------------------
If Range("F6").Value = "YES" Then
Range("B3,C3,D3,E3,F3,F11,D14").Select
Range("D14").Activate
ActiveSheet.PageSetup.PrintArea = "$B$3:$F$3,$F$11,$D$14"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
end if
----------------------------------------
As always your help is always appreciated.
Luke