Event "nach dem Setzen der Druckeinstellungen"

Das Event wird direkt nach dem be-seitigen Setzen der Druckeinstellungen und vor dem Beginn des Druckes eines Beleges (in das Archiv) aufgerufen.
Mit Hilfe der übergebenen Parameter ist es z.B. möglich ein anderes Layout (als das Standardlayout) zu wählen.
Das Objekt oPrintDeviceRec ermöglicht außerdem das Ändern folgender Einstellungen:

Eigenschaft	Beschreibung
pdDeviceName:C	Name des Druckers mit dem gedruckt werden soll
pdDeviceTpye:N	Art des Drucks 0 = pdPrinter 1 = pdFax 2 = pdEmail 3 = pdBackground, 4 = pdCustom
pdArchiveOnly:L	Archiv-Druck ohne anschließende Druck-Ausgabe
pdOrgPrinterName:C	Name des Druckers für den Original-Druck
pdOrgBinP1:N	Papierschachtschacht für die 1. Seite des Original-Drucks
pdOrgBinPx:N	Papierschachtschacht für alle Folgeseiten des Original-Drucks
pdOrgCount:N	Anzahl der Originale die gedruckt werden sollen
pdCopyPrinterName:L	Name des Druckers für Kopien
pdCopyBinP1	Papierschacht für die 1. Seite des Drucks der Kopie
pdCopyBinPx	Papierschacht für alle Folgeseiten des Drucks der Kopie
pdCopyCount:N	Anzahl der Kopien die gedruckt werden sollen
pdNoArchive:L	Keine Ausgabe ins Archiv
pdEMailCB:C	Batchmail-Codeblock als String
pdAlwaysPrint:L	Zusätzliche Druckausgaben, wenn der Beleg per E-Mail oder Fax versendet wird.

Beispiel

CODE

//##############################################################################
// Hinweis: Das Event wird direkt vor dem Drucken (in das Archiv) aufgerufen,
//          sowohl im Stapel- wie auch beim Einzel-Druck.
// oReport :        TBeReport-Objekt - mit der Eingenschaft
//                  "oReport.ReportNo"
//                  kann ein anderes Layout gewählt werden
// oPrintDeviceRec: Mit diesem Objekt können einige Drucker-
//                  Eigenschaften, wie die Anzahl der Kopien, ob der
//                  Beleg archiviert wird usw. gesetzt werden.
//##############################################################################

|
  nEvtNo:P1, lStapelDruck:P2, lTestDruck:P3, oReport:P4, oPrintDeviceRec:P5,
  oDataMod:P6, nBelegTyp:P7, nBelegNr:P8, nAuftragNr:P9, nPersNr:P10
|

// Beim Stapeldruck von Rechnungen ein anderes Layout wählen
if lStapelDruck and (nBelegTyp = 160) then
   oReport.ReportNo := 1,
endif

// Druckereinstellungen setzen
oPrintDeviceRec.pdAlwaysPrint := True  // Beleg immer drucken
oPrintDeviceRec.pdOrgCount    := 2,    // 2 Kopien drucken
oPrintDeviceRec.pdDeviceType  := 0,    // Beleg per E-Mail versenden
oPrintDeviceRec.pdNoArchive   := True, // Beleg wird nicht archiviert