"Ads by Google" links provided by Google.com, which has sole control over all advertising content it displays on this site.

Home | Tips | Library | Other Authors | Other WP Sites | Writer's Links | Contact | Site Map
Barry MacDonnell's
Toolbox for WordPerfect

Macros, tips, and templates for Corel® WordPerfect® for Windows®
© Copyright 1996-2008 by Barry MacDonnell. All Rights Reserved.

 Page updated April 1, 2006

WordPerfect Tips
Main tips page | Browse tips

How to quickly change printers (WP8+) back to the default after printing to a different printer or faxing the document.

See also: "Print your letterhead page from one printer tray, and second and subsequent pages from another tray."

The Windows default printer is the one that shows in File, Print when you open WP.

However, if you want to use a different printer (or fax driver), print (or fax) the document, and quickly restore the setting to your preferred (default) printer after printing, here's a way to do it.

[This is a macro solution based on the FAXIT macro in the Library. Use FAXIT9 for automated faxing with WinFax (see the comments embedded at the top of the FAXIT9 macro code). FAXIT also contains macros to produce cover sheets that can be inserted at the top of the current document, and one that produces a fax box page stamp similar to "Fax" sticky notes.]

Instructions:

  • Select and Copy all of the following lines of macro code.
  • Open a new document in WP8/9/10/11+ and click Tools, Macro, Macro toolbar.
  • Move the cursor to the very bottom of the blank document after all codes.
  • Paste the copied material with Edit, Paste Special, Unformatted text.
  • Make the change to your printer driver's name as indicated in the code below.
  • Click the Save & Compile button on the macro toolbar. (Done!)
  • You can add a toolbar button to play this macro: see here.

// (Macro code begins)

OnCancel(End@) OnError(End@) vPrinterName:=""

// Check if the document is empty:
If (?DocBlank)
    MessageBox (; "Document is Blank"; "You can't print or fax a blank document"; IconExclamation!) Quit
EndIf

// Exit from any header, note, text box, etc.:
While (?Substructure)
vSubDoc:=?CurrentSubDoc
SubstructureExit
If ((vSubDoc=10) or (vSubDoc=11))
BoxEnd (Save!)
EndIf
EndWhile

// Change "Your New Printer" to the exact name
// of the printer or fax driver you want to switch to as shown
// in File, Print (but retain the double quote marks):

vPrinterName := PrinterSelectbyName ("Your New Printer")

PrintCopies (NumberOfCopies: 1)
Print (FullDocument!)  // (or, CurrentPage!)
PrinterSelectbyName (vPrinterName)

// The last command above will return the setting to your
// preferred default after the document is printed or faxed.

Label(End@)
Quit
// (End of macro code)