Printing Macro question
 

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!

Printing Macro question
 

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!

Printing Macro question
 

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!

Printing Macro question
 

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!

Printing Macro question
 

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!

Printing Macro question
 

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

--
HTH

Bob Phillips

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