If you do not know how to employ the macro code, see the Options.DefaultTrayID = sTray 'Restore the original tray Set oDlg = Dialogs(wdDialogToolsCreateLabels)ĪctivePrinter = sCurrentPrinter 'Restore the original printer Options.DefaultTrayID = 260 'Set tray used for labels

Set oDlg = Dialogs(wdDialogToolsCreateEnvelope) Options.DefaultTrayID = 261 'Set tray used for envelopes If sQuery = vbYes Then 'Answer is print envelopesĪctivePrinter = 'HP LaserJet 4050 Series PS' SQuery = MsgBox('Print Envelopes?', vbYesNo, 'Envelopes & Labels') 'Ask the user whether labels or envelopes are required STray = Options.DefaultTrayID 'Save the current tray SCurrentPrinter = ActivePrinter 'Save the current printer If you only wish to change the printer setupįor one of the functions then simply create only the macro you require. Word 2007/2010 have separate tools for envelope and labels on the Mailings tab, The envelope printer will no longer be applied. The default printer is recalled for other documents If the wizard is used to add an envelope to a document, In this example, the printer and tray options are set for both envelopes and labels. It is also possible to intercept calls to the envelope and label wizard, as shown below. (There are automated envelope samples available from the downloads page of this site.) Probably best to use envelope templates and the techniques already shown to print envelopes. When using an envelope printer - here shown as the HP LaserJet 4050 Series PS - it is

Some users may wish to employ separate printers or trays for printing envelopes and labels. Use a different printer for envelopes and labels, when using the envelope/label wizard If InStr(UCase(vPrinters(i)), 'COLOR') Then Or no printers that match the required condition, pop up message boxes inform the user and the document is not printed.įor i = LBound(vPrinters) To UBound(vPrinters) The routine sets that printer as active printer and prints the document to it,īefore returning control to the original printer. If the routine finds such a printer name, In the following example, I have checked to see if the arrayĬontains a printer with the word COLOR in the printer name having converted the printer You can then use this array to check whether the printer you need is availableĪnd then print to it. Names to list the available printers in an array. The following macro requires the code by Astrid Zeelenberg at You may wish to locate whether you have a suitable printer available, for example aĬolour printer, for a specific print task and print to that. Some users have a variety of printers available (or not) at different times. Print to a suitable available printer e.g.

Hp printer how to use specific trays