Printing Macro question

[Guest]

Hello
Im using the following code to print:

Private Sub CommandButton2_Click()
Sheets(Array("Sheet1", "Sheet2")).Select
Application.ActivePrinter = "\\s45657\hp deskjet 6122 series on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

I want to run the macro from other machines that have the same printer
attached but not the same "NE01". I presume this number is assigned as the
printer is installed. In that that have several different sheets that print
at different printers, it is not practical for a choose printer dialog. Is
there anyway to reassign the NE numbers outside of removing and reintalling
the printers in the same order?

Thanks!

 

[Bob Phillips]

Sandy,

This topic was covered a couple of days ago. I don't understand why a print
dialog is not feasible (that was my suggestion ), but there is an
alternative suggested.

Check here http://tinyurl.com/3n4oj

 

[Guest]

Not feasible in my ignorance I suppose----If I were to do this Print Dialog
how would it look and how would I modify my code for each new sheet and each
different printer?
Thanks for your reply

 

[Bob Phillips]

Sandy,

I wouldn't have thought you would do it for each sheet. just throw the print
dialog up and then just print each sheet after, the printer would be
defaulting?

 

[Guest]

OK Bob
I am going to use Application.Dialogs(xlDialogPrint).Show. I select
printerA and print sheets 1-6. I also need 2 copies of shts 3 and 6 on the
same printer. How do I do do shts 3 and 6 (the second copies),before moving
on to the next printer?
Thanks
Sandy

 

[Bob Phillips]

You would need to re-do the dialog, not what you want eh?