ReportPrint() | be Hilfeportal

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

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

| 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

| 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()