set up different default printer for MS Excel

[Guest]

I have a printer A set up as default for my PC. I want to have a printer B to
be default one for ALL NEW Excel files. So task is not to change it manually
or via some macro button; the task is to have the printer B ready directly
after opening of Excel file. Any suggestions?

 

[Earl Kiosterud]

Stefan,

You can change the default printer for all applications with the Windows Control Panel.
Start - Control Panel - Printers and Faxes. Right-click the printer you wish to be the
default, and choose "Set as Default."

To set a default printer for Excel only (different from the Windows default printer), put
the following code in the ThisWorkbook module in Personal.xls (or any workbook that's opened
automatically, such as one specified in "At startup, open all files in" in Tools - Options -
General tab, or any in your Xlstart folder):

Private Sub Workbook_Open()
Application.ActivePrinter = "Fax on Ne01:"
End Sub

Change the name as needed. To get the name, you can use the macro recorder while changing
the active printer.
--
Earl Kiosterud
www.smokeylake.com

Note: Some folks prefer bottom-posting. But if you bottom-post to a reply that's already
top-posted, the thread gets messy. When in Rome.

 

[Bob I]

Use Auto_Open Macro

 

[Guest]

hi Earl,
it has helped me and it works fine. Have a nice weekend!
Stefan.