Print to file

[meth]

Hello all,

I have an annoying problem.

MyPrinter = ActivePrinter
ActivePrinter = "FilePrinter on FILE:"
strFileName = Left(ActiveDocument.AttachedTemplate,
Len(ActiveDocument.AttachedTemplate) - 4)
strFileType = ".prn"
strDocNames = "C:\Temp\" & strFileName & strFileType
Application.PrintOut Background:=False, Append:=False,
Range:=wdPrintAllDocument, OutputFileName:=strDocNames,
Item:=wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, Collate:=True
ActivePrinter = MyPrinter

The next time I want to print a document with the File -> Print dialog
(no macro this time), then the Print to file checkbox is still on. And
there seems to be no way to switch it off elegantly. I tried this:

With Dialogs(wdDialogFilePrint)
.printtofile =0
.Execute
End With

which results in printing the document (which I don't want...I just
want a .prn file, no "real" print)

I tried

With Dialogs(wdDialogFilePrint)
.printtofile =0
.Update
End With

which doesn't uncheck the check box. Actually I tried pretty much
everything that I could come up with. Closing Word is not an option.
While browsing I found several posts on this matter...alas all without
a viable solution.

I'd be really grateful for any suggestions.

TIA

Raph.

 

[Jean-Guy Marcil]

meth was telling us:
meth nous racontait que :

Hello all,

I have an annoying problem.

MyPrinter = ActivePrinter
ActivePrinter = "FilePrinter on FILE:"
strFileName = Left(ActiveDocument.AttachedTemplate,
Len(ActiveDocument.AttachedTemplate) - 4)
strFileType = ".prn"
strDocNames = "C:\Temp\" & strFileName & strFileType
Application.PrintOut Background:=False, Append:=False,
Range:=wdPrintAllDocument, OutputFileName:=strDocNames,
Item:=wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, Collate:=True
ActivePrinter = MyPrinter

The next time I want to print a document with the File -> Print dialog
(no macro this time), then the Print to file checkbox is still on. And
there seems to be no way to switch it off elegantly. I tried this:

With Dialogs(wdDialogFilePrint)
.printtofile =0
.Execute
End With

which results in printing the document (which I don't want...I just
want a .prn file, no "real" print)

I tried

With Dialogs(wdDialogFilePrint)
.printtofile =0
.Update
End With

which doesn't uncheck the check box. Actually I tried pretty much
everything that I could come up with. Closing Word is not an option.
While browsing I found several posts on this matter...alas all without
a viable solution.

I'd be really grateful for any suggestions.

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

--

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[Jay Freedman]

Try this:

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

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[meth]

Try this:

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

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ:http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

Jean-Guy and Jay,

Thank you so much for pointing this one out to me. I've spent a lot of
time on this one. Although I checked the MVPS site, I missed the
solution.

Again guys, thank you very much....you brightened my Monday ;-)

Raph.