' This is saved as word macros; opens a pdf and writes out a ps file using
' Apple LaserWriter ps driver
' Note that the output dir and hardcoded printer must exist
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
 '   For Each afield In ActiveDocument.Fields
  '      afield.Update
  '  Next afield
    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

Sub bye_bye()

Application.Quit SaveChanges:=wdDoNotSaveChanges
    
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
