fix contrib docs to build for 2.8.4

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_8_BRANCH@45776 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Chris Elliott
2007-05-03 09:22:45 +00:00
parent 8764117f28
commit 07e945b244
2 changed files with 2 additions and 26 deletions

View File

@@ -59,7 +59,7 @@ mkdir %WXWIN%\docs\pdf
mkdir %WXWIN%\docs\htmlhelp mkdir %WXWIN%\docs\htmlhelp
mkdir %WXWIN%\docs\htb mkdir %WXWIN%\docs\htb
echo starting word >> c:\temp.log echo starting word >> c:\temp.log
start /WAIT winword /mwx_ps start /WAIT winword /mwx28_ps
echo cvs doc up part 2 >> c:\temp.log echo cvs doc up part 2 >> c:\temp.log

View File

@@ -2,7 +2,7 @@
' laserjet ps driver ' laserjet ps driver
' Note that the output dir and hardcoded printer must exist ' Note that the output dir and hardcoded printer must exist
Sub wx_ps() Sub wx28_ps()
swxWIN = Environ("WXWIN") swxWIN = Environ("WXWIN")
do_ps swxWIN & "\docs\pdf\", "wx" do_ps swxWIN & "\docs\pdf\", "wx"
do_ps swxWIN & "\contrib\docs\latex\svg", "svg" do_ps swxWIN & "\contrib\docs\latex\svg", "svg"
@@ -15,28 +15,4 @@ Sub wx_ps()
bye_bye bye_bye
End Sub End Sub
Sub do_ps(mydir, myfile)
' wx_ps Macro
' Macro recorded 04/05/2005 by cje2
'
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 = "\\biolpc22\laserjet"
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
End Sub
Sub bye_bye()
Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub