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
|
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,