use env var for daily build

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@35440 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Chris Elliott
2005-09-08 14:02:57 +00:00
parent 3f3a6949a6
commit 96a9f4e8dd
2 changed files with 33 additions and 25 deletions

View File

@@ -1,17 +1,16 @@
' This is saved as word macros; opens a pdf and writes out a ps file using
' laserjet ps driver
' Note that the input and output directories are hard coded and the output dir must exist
' Note that the output dir and hardcoded printer must exist
Sub wx_ps()
do_ps "C:\wx\wxWidgets\docs\pdf\", "wx"
do_ps "C:\wx\wxWidgets\contrib\docs\latex\svg", "svg"
do_ps "C:\wx\wxWidgets\contrib\docs\latex\ogl", "ogl"
do_ps "C:\wx\wxWidgets\contrib\docs\latex\mmedia", "mmedia"
do_ps "C:\wx\wxWidgets\contrib\docs\latex\gizmos", "gizmos"
do_ps "C:\wx\wxWidgets\contrib\docs\latex\fl", "fl"
do_ps "C:\wx\wxWidgets\utils\tex2rtf\docs", "tex2rtf"
swxWIN = Environ("WXWIN")
do_ps swxWIN & "\docs\pdf\", "wx"
do_ps swxWIN & "\contrib\docs\latex\svg", "svg"
do_ps swxWIN & "\contrib\docs\latex\ogl", "ogl"
do_ps swxWIN & "\contrib\docs\latex\mmedia", "mmedia"
do_ps swxWIN & "\contrib\docs\latex\gizmos", "gizmos"
do_ps swxWIN & "\contrib\docs\latex\fl", "fl"
do_ps swxWIN & "\utils\tex2rtf\docs", "tex2rtf"
bye_bye
End Sub
@@ -20,6 +19,7 @@ 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:= _
@@ -30,7 +30,12 @@ Sub do_ps(mydir, myfile)
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=False, PrintToFile:=True, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0, _
OutputFileName:="C:\daily\in\" & myfile & ".ps", Append:=False
OutputFileName:=sDAILYIN & myfile & ".ps", Append:=False
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
End Sub
Sub bye_bye()
Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub