Using Multiple printers

[Justpotholes]

I have a Excel document that I wish to print 2 documents at the same time, one from Worksheet known as " Letter" to Printer 1 ( Canon iP4850), and the other at the same time Worksheet known as "Certificate" to print out to printer 2 (Canon MP620).

I am looking for a macro that will do both in one action as the one printer will have a Cetificate and the other a supporting letter.

I hope someone may have a solution for me

Many thanks in advance.


Peter

 

[Trevor G]

The best way to get the correct printer is to record a macro and print the first sheet then the next that will give you the code as you have to select the printers.

Here is a possible solution.

Are you the only one who will print to these printers, are they on a network.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> print1()<br>Sheets("Letter").PrintOut Copies:=1, ActivePrinter:= _<br>    "Canon iP4850:", collate:=<SPAN style="color:#00007F">True</SPAN><br>Sheets("Certificate").PrintOut Copies:=1, ActivePrinter:= _<br>    "Canon MP620:", collate:=<SPAN style="color:#00007F">True</SPAN><br><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Justpotholes]

Good Afternon

The Macro sort of worked but it printed both documents to the iP4800 and not one to each of the printers.

The printers are in a home network, and I am the only one with access to them.



Pete

 

[Trevor G]

Pete,

Did you try the record macro? here is code that I have just recorded

Sub Macro2()
'
' Recorded action to printer
'

'
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Sheet1").Select 'Change sheet name
Application.ActivePrinter = "Send To OneNote 2007 on Ne00:" 'Change printer name
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""Send To OneNote 2007 on Ne00:"",,TRUE,,FALSE)"
End Sub

 

[Justpotholes]

Sub Print_Cert()
'
' xecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Letter").Select
Application.ActivePrinter = "Canon iP4800 series XPS:"
ExecuteExcel4Macro _"PRINT(1,,,1,,,,,,,,2,""Canon iP4800 series XPS:"",,TRUE,,FALSE)"

I get a Macro error on the line above

End Sub

 

[Trevor G]

You have left an underscore in the second part, and placeda comment on the first Execute and removed the E

Sub Print_Cert()
'
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Letter").Select
Application.ActivePrinter = "Canon iP4800 series XPS:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Canon iP4800 series XPS:"",,TRUE,,FALSE)"


End Sub

 

[Justpotholes]

Hi

This error still happening

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Sub Print_Cert()
'
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Letter").Select
' This Line below still gives an error.
Application.ActivePrinter = "Canon iP4800 series XPS:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Canon iP4800 series XPS:"",,TRUE,,FALSE)"


End Sub

>>>>>>>>>>>>>>>>>>>>


Pete