Amebis/wxWidgets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use correct form of rtf for making PDF

Browse Source 
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_8_BRANCH@59057 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Chris Elliott
2009-02-20 12:47:48 +00:00
parent 19a575d6e9
commit 8c83a06dcc
1 changed files with 22 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
build/script/word_macro.txt
View File

@@ -1,20 +1,6 @@
' This is saved as word macros; opens a pdf and writes out a ps file using ' This is saved as word macros; opens a pdf and writes out a ps file using
' laserjet ps driver ' Apple LaserWriter ps driver
' Note that the output dir and hardcoded printer must exist ' Note that the output dir and hardcoded printer must exist
Sub wx28_ps()
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
Sub do_ps(mydir, myfile) Sub do_ps(mydir, myfile)
' wx_ps Macro ' wx_ps Macro
' Macro recorded 04/05/2005 by cje2 ' Macro recorded 04/05/2005 by cje2
@@ -28,7 +14,9 @@ Sub do_ps(mydir, myfile)
Format:=wdOpenFormatAuto Format:=wdOpenFormatAuto
ActivePrinter = "Apple LaserWriter" ActivePrinter = "Apple LaserWriter"
ActiveDocument.Fields.Update ActiveDocument.Fields.Update
' For Each afield In ActiveDocument.Fields
' afield.Update
' Next afield
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=False, PrintToFile:=True, PrintZoomColumn:=0, _ Collate:=True, Background:=False, PrintToFile:=True, PrintZoomColumn:=0, _
@@ -36,6 +24,24 @@ Sub do_ps(mydir, myfile)
OutputFileName:=sDAILYIN & myfile & ".ps", Append:=False OutputFileName:=sDAILYIN & myfile & ".ps", Append:=False
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
ActivePrinter = sPrinter ActivePrinter = sPrinter
End Sub
Sub bye_bye()
Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub End Sub
Sub wx28_ps()
swxWIN = Environ("WXWIN")
do_ps swxWIN & "\docs\pdf", "wx"
do_ps swxWIN & "\docs\pdf", "svg"
do_ps swxWIN & "\docs\pdf", "ogl"
do_ps swxWIN & "\docs\pdf", "mmedia"
do_ps swxWIN & "\docs\pdf", "gizmos"
do_ps swxWIN & "\docs\pdf", "fl"
do_ps swxWIN & "\utils\tex2rtf\docs", "tex2rtf_rtf"
bye_bye
End Sub