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"
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"