Print Current Page Macro

[CWilson]

The recorded macro below is designed to print the current page of a
document. While the macro works, it is extremely slow. The macro
selects a printer, sets other parameters, and prints the current page.
The printer selection is necessary because I print to several
different printers, and I don't want to have to select the printer
with File > Print each time. Additionally, the other parameters are
necessary for a number of reasons too lengthy to explain here. It
appears this line: ActivePrinter = "HP 4050 Development" causes the
macro to be slow. If this line is removed, the macro runs quickly. Can
anyone help me determine why the macro is so slow? Is there a way to
edit the line: ActivePrinter = "HP 4050 Development" to eliminate the
speed degradation it causes?

Thanks in advance for any help.

Sub PrintCurrentPageDevelopmentPrinter()
'
' PrintCurrentPageDevelopmentPrinter Macro
' Macro recorded 12/2/2003
'
ActivePrinter = "HP 4050 Development"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=False,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

 

[CWilson]

In regards to the message below, I should have included the following:

Windows XP
Office XP (Word 2002)

 

[Hilary Ostrov]

On 9 Jan 2004 05:28:45 -0800, in

In regards to the message below, I should have included the following:

Windows XP
Office XP (Word 2002)

Try posting your question in microsoft.public.word.vba.beginners. I'm
sure one of the VBA gurus there will be able to help you.

[...]

hro