Formatting printers for Word2003.

  • Thread starter Thread starter Frank Martin
  • Start date Start date
F

Frank Martin

I have WindowsXP/MediaCentre2005, and Word2003
(just upgraded from Word2000).

We print all our colour labels from Word using an
OKI colour printer.

After our upgrade to Word2003 it is necessary to
go to the "Page Setup" and format every label page
to the OKI printer's "Multipurpose Tray" and then
save the results, after which this is set
permanently.

This is all too hard, so could someone tell us a
way to do this operation "globally" for all the
documents we us for this printer.

There is nothing in the OKI printer documentation
about this.

Please help, Frank
 
For new labels change the setting in the label wizard > options.

For existing label documents. The simplest plan would be to create a print
macro.
Change the 2 lines where shown and use this macro to print your labels.


Sub PrintLabelFeed()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "OKI Color Printer" ' put the correct OKI printername here
With Options
.DefaultTray = "Tray 2" 'Put the required tray here
End With
Application.PrintOut FileName:=""
With Options
.DefaultTray = "Use printer settings"
End With
ActivePrinter = sCurrentPrinter
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Thank you for this.
Regards,Frank



Graham Mayor said:
For new labels change the setting in the label
wizard > options.

For existing label documents. The simplest plan
would be to create a print macro.
Change the 2 lines where shown and use this
macro to print your labels.


Sub PrintLabelFeed()
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
ActivePrinter = "OKI Color Printer" ' put the
correct OKI printername here
With Options
.DefaultTray = "Tray 2" 'Put the
required tray here
End With
Application.PrintOut FileName:=""
With Options
.DefaultTray = "Use printer settings"
End With
ActivePrinter = sCurrentPrinter
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Click to expand...
 
Back
Top