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" wrote:

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?

--
HTH

Bob Phillips

"Sandy" wrote in message
...
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" wrote:

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

--
HTH

Bob Phillips

"Sandy" wrote in message
...
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!