From bc134bdbd062c2566ac525d6f32e4111d497af36 Mon Sep 17 00:00:00 2001 From: Chris Elliott Date: Fri, 20 Feb 2009 10:37:10 +0000 Subject: [PATCH] add missing macro git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_8_BRANCH@59050 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775 --- build/script/word_macro.txt | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/build/script/word_macro.txt b/build/script/word_macro.txt index 9194b29273..802253eb8d 100644 --- a/build/script/word_macro.txt +++ b/build/script/word_macro.txt @@ -15,4 +15,27 @@ Sub wx28_ps() bye_bye End Sub +Sub do_ps(mydir, myfile) +' wx_ps Macro +' Macro recorded 04/05/2005 by cje2 +' + sPrinter = ActivePrinter + sDAILYIN = Environ("DAILY") & "\in\" + ChangeFileOpenDirectory mydir + Documents.Open FileName:=myfile & ".rtf", ConfirmConversions:=False, ReadOnly:= _ + False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ + "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ + Format:=wdOpenFormatAuto + ActivePrinter = "Apple LaserWriter" + ActiveDocument.Fields.Update + + Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ + wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ + Collate:=True, Background:=False, PrintToFile:=True, PrintZoomColumn:=0, _ + PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0, _ + OutputFileName:=sDAILYIN & myfile & ".ps", Append:=False + ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges + ActivePrinter = sPrinter +End Sub +