Skip to main content
Skip table of contents

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


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.