ReportPrint()

ReportPrint() – Reportobjekt drucken / Reportdesigner starten

Die Funktion führt den Druck aus oder startet den Reportdesigner.

Im beas wird hier der Standarddrucker des Users benutzt, unter dem der beas läuft. Dieser muss automatisch Dateinamen und Ausgabeort setzen können.

Parameter

Beschreibung

aReportObject:O

Mit 'ReportInit' erzeugtes Report-Objekt

aMode:N

Druckmodus

default = rm_Print, in der Programmierumgebung = rm_Layout,
im beas ist nur rm_Print erlaubt
rm_Print (Wert 0) Druck starten
rm_Layout (Wert 1) Reportdesigner aufrufen

Rückgabewert

Objekt - Reportobjekt

Beispiel - mit einem DataModul und richtigem Tabelle-Alias

CODE

| aReport, oDab010, aOldCursor, oDM |

oDM := DBGetDataModuleFromPool('Druck'),
startseq
   oDab010 := DbGetTable(oDM, waDab010, 'ODAB010'),
   oDab010.CbIndexName := 'DAB011',
   oDab010.CbFilter    := 'ARTNR = "A"',
   oDab010.CbFiltered  := true,

   aReport := ReportInit('Artikelliste', oDab010, {'Artikelliste'}),
   if !Empty(aReport) then
      aOldCursor := SetCursor(crHourGlass),
      startseq,
         ReportPrint(aReport, rm_print),
      onerror,
         WriteLn('Fehler beim Drucken aufgetreten: ' + GetErrorText(GetErrorObj())),
      stopseq,
      DestroyObject(aReport),
      SetCursor(aOldCursor),
   endif,
always
  DBReturnDataModuleToPool(oDM),
stopseq

Beispiel - Alt

CODE

| aReport, oDab010:DB := 'waDAB010, DAB011', aPrinters, aOldCursor |

DBFilter('ARTNR = "C"', oDab010),                                      
aReport := ReportInit('Artikelliste', oDab010, {'Artikelliste C'}),   
if !Empty(aReport) then                                              
   aOldCursor := SetCursor(crHourGlass),                              
   startseq,                                                          
      ReportPrint(aReport),                                           
   onerror,                                                           
      Showmessage('Fehler beim Drucken aufgetreten!'),                
   stopseq,                                                          
   DestroyObject(aReport),                                           
   SetCursor(aOldCursor),                                            
endif,

Weitere Verknüpfungen

ReportInit()