Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Default Printer
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" |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Default Printer | Excel Discussion (Misc queries) | |||
members on my network printer not able to print to default printer | Excel Discussion (Misc queries) | |||
Default Printer | Excel Programming | |||
Default printer | Excel Programming | |||
default printer | Excel Programming |