Default Printer

  • Thread starter Thread starter Corey
  • Start date Start date
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"
 
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"
 
Back
Top