Sticky PrintToFile

[bleda01]

I have a macro that prints the current document to file using the following
code:

With Dialogs(wdDialogFilePrint)
.Background = False
.AppendPrFile = False
.Range = wdPrintAllDocument
.PrToFileName = "c:\temp\prfile.prn"
.OutputPrinter = "FilePrinter on FILE:"
.Execute
End With

The trouble is when the user wants to do a normal print after using this
macro. The Print To File setting has been remembered. After an extensive
search, the only solution I have found is on the MVPS site:

http://word.mvps.org/FAQs/MacrosVBA/ResetPrintToFile.htm

But this solution is not ideal when the current printer is actaully a
printer which normally prints to file. The offered soultion causes the user
to be prompted for a filename which just confuses the user and if the enter a
file name, a file is created.

Has anybody found another way to reset PrintToFile that does not involve
printing a no page document?

 

[Graham Mayor]

See http://www.gmayor.com/fax_from_word.htm which demonstrates several ways
of manipulating printers and their settings.

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


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[bleda01]

Thanks for the quick reply Graham. I had already found your site but none of
the techniques demonstrated will solve my problem.