add missing macro
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_8_BRANCH@59050 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user