Default Printer

C

Corey

Currently i have:
If Range("AC1").Value = 39 Then
Application.ActivePrinter = "\\OFFICE3\OKI C5200n on Ne02:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5, Copies:=1, _
ActivePrinter:="\\OFFICE3\OKI C5200n on Ne02:"


How can i generalise this to print the requested pages to what ever the default printer on the PC is set to???

Like:

If Range("AC1").Value = 39 Then
Application.ActivePrinter = "DEFAULT PRINTER"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5, Copies:=1, _
ActivePrinter:="DEFAULT PRINTER"
 
D

David Coleman

Hi Corey

All you need to do is remove the lines / sections talking about the active
printer - ie

If Range("AC1").Value = 39 Then ActiveWindow.SelectedSheets.PrintOut
From:=1, To:=5, Copies:=1

will do what you want.

HTH

David

Currently i have:
If Range("AC1").Value = 39 Then
Application.ActivePrinter = "\\OFFICE3\OKI C5200n on Ne02:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5, Copies:=1, _
ActivePrinter:="\\OFFICE3\OKI C5200n on Ne02:"


How can i generalise this to print the requested pages to what ever the
default printer on the PC is set to???

Like:

If Range("AC1").Value = 39 Then
Application.ActivePrinter = "DEFAULT PRINTER"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5, Copies:=1, _
ActivePrinter:="DEFAULT PRINTER"
 

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

Printer Names on a Network 5
NetWork Printer Selection Problems 1
changing and re-setting the default printer 2
Skittish Ne0x address on network printer 3
Excel changing Default Printer 1
Simple Macro freezes the whole Excel and PC! 5
Print to PDF code for both Cute PDF and Adobe 1
Macro to print plus list options? 2

Top