🚀 go-pugleaf

Here is a macro I put together to display a dialog box and prompt
for which pages to print and whether the document should be repag-
inated or saved first. It is based on a sample macro from James
Rudnicki from December. I would have had this out sooner, but
oh well... :^)  To get this to work copy the text into an empty
macro edit page.

Richard M. Page
Systems Development Librarian
Doheny Memorial Library
RPAGE@VM.USC.EDU

*****CUT HERE********
Sub MAIN
  Begin Dialog UserDialog 300, 154, "Odd/Even Printing"
    Text 48, 8, 234, 48, "Print odd or even numbered pages. The document may
      be repaginated and saved before printing."
    GroupBox 11, 62, 143, 59, "Select Pages"
    OptionGroup  .OddEven
        OptionButton 21, 78, 112, 16, "Odd Pages"
        OptionButton 21, 95, 120, 16, "Even Pages"
    CheckBox 173, 79, 116, 16, "Repaginate", .RePage
    CheckBox 173, 96, 100, 16, "Save File", .SaveFile
    OKButton 10, 127, 88, 21
    CancelButton 110, 127, 88, 21
  End Dialog

  Dim dlg As DocumentStatistics
  GetCurValues dlg
  NUM = Val(dlg.Pages)            'Get number of pages

  Dim NewDlg As UserDialog        'Declare dialog array
  Choice = Dialog(NewDlg)

  Select Case Choice
    Case - 1                      'OK Button
      If NewDlg.RePage = 1 Then
        ToolsRepaginateNow        'Make sure pagination is correct
      End If
      If NewDlg.SaveFile = 1 Then
        FileSave                  'Save before printing
      End If
      If NewDlg.OddEven = 0 Then
        For cnt = 1 To NUM Step 2
          FilePrint .Range = 3, .From = Str$(cnt), .To = Str$(cnt)
        Next
      Else
        For cnt = 2 To NUM Step 2
          FilePrint .Range = 3, .From = Str$(cnt), .To = Str$(cnt)
        Next
      End If
    Case Else
  End Select

End Sub




-- 
 Richard Page, Systems Development Librn.  | Voice: (213) 740-2939
 Center for Scholarly Technology           | BitNet   RPAGE@USCVM
 U. of So. Cal. Library, LA, CA 90089-0182 | InterNet RPAGE@VM.USC.EDU