Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Word 2000 - Using 2 printers - Help 1

Status
Not open for further replies.

bocker

Programmer
Joined
Mar 9, 2001
Messages
81
Location
US
I have two printers. I have some documents that I don't use the default printer. How do I save the non default printer on some documents. Thank you!
 
You don't. You record yourself a macro that swaps the printers. And another one that swaps them back. Make one of them a red smiley toolbar button, and one a purple smiley toolbar button. That's what I do. Brainbench MVP for Microsoft Word
techsupportgirl@home.com
 
Thank you for your reply. I had found some code on that same idea, but I was wondering if there was a different solution. Thank you again.
 
Well, if you *must*, you can put a macro in those documents that switches printers for you (use the one you recorded) and change the name of it to Document Open. Problem: if you've got macro virus notification set properly, you'll get the option to enable/disable macros. Might be easier to just hit the printer button... techsupportgirl@home.com
Brainbench MVP for Microsoft Word
 
I decided to put one command button on my toolbar to run the following macro. I used the recorder. It changes the printer to my Panasonic, prints the active document, and then returns the printer settings back to the default printer "Canon S630".

Sub PrintPanasonic()
'
' PrintPanasonic Macro
' Print To Panasonic
'
ActivePrinter = "Epson LQ-860+"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
ActivePrinter = "Canon S630"
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top