Print doc

Code:
DEFINE BUTTON bprintset   LABEL "Printer Setup". 
DEFINE BUTTON bprintnames LABEL "Print Customer Names". 
DEFINE BUTTON bcancel     LABEL "Cancel". 
DEFINE FRAME PrintFrame  
  bprintset bprintnames bcancel 
  WITH TITLE "Quick Printer" VIEW-AS DIALOG-BOX. 
ON CHOOSE OF bprintset DO: 
  SYSTEM-DIALOG PRINTER-SETUP. 
END. 
ON CHOOSE OF bprintnames DO: 
  OUTPUT TO PRINTER. 
  FOR EACH Customer NO-LOCK BY Customer.Name: 
    DISPLAY Customer.Name WITH STREAM-IO. 
  END. 
  OUTPUT CLOSE. 
END. 
ENABLE ALL WITH FRAME PrintFrame. 
WAIT-FOR CHOOSE OF bcancel IN FRAME PrintFrame.
 
Back
Top