ExcelBanter - Default Printer

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Default Printer (https://www.excelbanter.com/excel-programming/362745-default-printer.html)

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

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