selecting network printer

B

Bill Kuunders

Our IT staff say they cannot solve the issue...............................

I use a macro to select a networked label printer as a default printer and
after the job has been printed to select the normal inkjet printer.

Problem is when we log on to the network the label printer may be on a
different port. I.e. in stead of on Ne04 it may now be on Ne01 and the
macro does not run.....
Is there a different way to select a non default printer?

Thanks
Bill Kuunders

part of the macro.................

Selection.PasteSpecial Paste:=xlValues

Application.ActivePrinter = "\\nzdfprn01\Label_UHT_Sato on Ne04:"
Sheets("label").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=2

Application.ScreenUpdating = True
Application.ActivePrinter = "\\nzdfprn01\Inkjet_BevProd on Ne04:"
Sheets("schedule").Select
 
F

Fredrik Wahlgren

Bill Kuunders said:
Our IT staff say they cannot solve the issue...............................

I use a macro to select a networked label printer as a default printer and
after the job has been printed to select the normal inkjet printer.

Problem is when we log on to the network the label printer may be on a
different port. I.e. in stead of on Ne04 it may now be on Ne01 and the
macro does not run.....
Is there a different way to select a non default printer?

Thanks
Bill Kuunders

part of the macro.................

Selection.PasteSpecial Paste:=xlValues

Application.ActivePrinter = "\\nzdfprn01\Label_UHT_Sato on Ne04:"
Sheets("label").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=2

Application.ScreenUpdating = True
Application.ActivePrinter = "\\nzdfprn01\Inkjet_BevProd on Ne04:"
Sheets("schedule").Select

try this:
http://www.erlandsendata.no/english/index.php?d=envbaprintchangeprinter
 
B

Bob Phillips

run the print dialog

Application.Dialogs(xlDialogPrint).Show

and then they can select it

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
B

Bill Kuunders

Thanks Bob and Fredrik,
I'm going to try out the macro from (E Ehren)which loops through the numbers
after Ne.. .

It looks to be promissing.
If not I'll try the Dialogs.Show line
I may have to come back to you to see how to code the selection after the
dialogs.show

Thank You both
Bill K
 

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

Top