Printing Macro question

S

Sandy

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!
 
B

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
 
S

Sandy

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
 
B

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?
 
S

Sandy

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top