Procedure

SaveDefaultPrinter

Module

rReports

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure SaveDefaultPrinter(DefPrinter: string) ;

Called-By Hierarchy


                        SaveDefaultPrinter
                TfrmNotePrint.cmdOKClick┤ 
                             PrintNote┘ │ 
             TfrmDCSumm.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┘ │   │ 
     TfrmDCSumm.RequestMultiplePrint┤   │ 
          TfrmPrintList.cmdOKClick┘ │   │ 
   TfrmConsults.mnuActNotePrintClick┤   │ 
TfrmConsults.popNoteMemoPrintClick┘ │   │ 
            TfrmSurgery.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┘ │   │ 
              TfrmNotes.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┘ │   │ 
      TfrmNotes.RequestMultiplePrint┘   │ 
          TfrmPrintList.cmdOKClick┘     │ 
             TfrmDeviceSelect.cmdOKClick┤ 
                 TfrmLabPrint.cmdOKClick┤ 
                             PrintLabs┘ │ 
               TfrmLabs.RequestPrint┘   │ 
              TfrmLabs.Print1Click┤     │ 
              TfrmLabs.Print2Click┤     │ 
       TfrmFrame.mnuFilePrintClick┘     │ 
                TfrmReportPrt.cmdOKClick┤ 
                          PrintReports┘ │ 
            TfrmLabs.RequestPrint...┤   │ 
            TfrmReports.RequestPrint┤   │ 
       TfrmFrame.mnuFilePrintClick┤ │   │ 
           TfrmReports.Print1Click┤ │   │ 
           TfrmReports.Print2Click┘ │   │ 
           TfrmProblems.RequestPrint┘   │ 
       TfrmFrame.mnuFilePrintClick┘     │ 
                 Tfrm513Print.cmdOKClick┘ 
                            PrintSF513┘   
           TfrmConsults.RequestPrint┤     
TfrmConsults.mnuActPrintSF513Click┤ │     
       TfrmFrame.mnuFilePrintClick┘ │     
   TfrmConsults.RequestMultiplePrint┘     
          TfrmPrintList.cmdOKClick┘       

Called-By

Name Declaration Comments
TfrmNotePrint.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmDeviceSelect.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmLabPrint.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmReportPrt.cmdOKClick procedure cmdOKClick(Sender: TObject); -
Tfrm513Print.cmdOKClick procedure cmdOKClick(Sender: TObject); -


Source

706   procedure SaveDefaultPrinter(DefPrinter: string) ;
707   begin
708     CallV('ORWRP SAVE DEFAULT PRINTER', [DefPrinter]);
709   end;