Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing and re-setting the default printer
I'm trying to create a menu item based on a macro to print to PDF. The
problem is that after it has printed the default printer remains PDF. I want to reset the active printer to 5004 I recorded two macros, one to print to pdf and one to reset the printer but the part "Ne05 seems to vary every day so that the macro doesn't reset my default printer to 5004. Application.ActivePrinter = "PDF995 on Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDF995 on Ne00:", Collate:=True Application.ActivePrinter = "\\S1103\A5004 on Ne05:" 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ ' "\\S1103\A5004 on Ne05:", Collate:=True I notice in Word I can simply use: Application.ActivePrinter = "PDF995" and Application.ActivePrinter = "A5004" But Excel doesn't accept this. Regards Dylan Scotland |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing and re-setting the default printer
Store the name of the acrtivePrinter before you change it; then reset
dim OldPrinterName as string OldPrintername =Application.ActivePrinter '..code Application.ActivePrinter=OldPrintername NickHK "dd" <dd.dd wrote in message ... I'm trying to create a menu item based on a macro to print to PDF. The problem is that after it has printed the default printer remains PDF. I want to reset the active printer to 5004 I recorded two macros, one to print to pdf and one to reset the printer but the part "Ne05 seems to vary every day so that the macro doesn't reset my default printer to 5004. Application.ActivePrinter = "PDF995 on Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDF995 on Ne00:", Collate:=True Application.ActivePrinter = "\\S1103\A5004 on Ne05:" 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ ' "\\S1103\A5004 on Ne05:", Collate:=True I notice in Word I can simply use: Application.ActivePrinter = "PDF995" and Application.ActivePrinter = "A5004" But Excel doesn't accept this. Regards Dylan Scotland |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
changing and re-setting the default printer
Nick
Thank you for solving this problem for me. Kind regards Dylan "NickHK" wrote in message ... Store the name of the acrtivePrinter before you change it; then reset dim OldPrinterName as string OldPrintername =Application.ActivePrinter '..code Application.ActivePrinter=OldPrintername NickHK "dd" <dd.dd wrote in message ... I'm trying to create a menu item based on a macro to print to PDF. The problem is that after it has printed the default printer remains PDF. I want to reset the active printer to 5004 I recorded two macros, one to print to pdf and one to reset the printer but the part "Ne05 seems to vary every day so that the macro doesn't reset my default printer to 5004. Application.ActivePrinter = "PDF995 on Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDF995 on Ne00:", Collate:=True Application.ActivePrinter = "\\S1103\A5004 on Ne05:" 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ ' "\\S1103\A5004 on Ne05:", Collate:=True I notice in Word I can simply use: Application.ActivePrinter = "PDF995" and Application.ActivePrinter = "A5004" But Excel doesn't accept this. Regards Dylan Scotland |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
setting the default printer for this workbook only | Excel Worksheet Functions | |||
Default printer setting | Excel Discussion (Misc queries) | |||
Setting default printer using wsh | Excel Programming | |||
Excel changing Default Printer | Excel Programming | |||
Changing the default printer... | Excel Programming |