Drucken mit Dialogen
Zur Einstellung von Druckeroptionen kann man den TPrinterSetupDialog nutzen. Er steht auf der Seite Dialoge der Komponentenpalette.
Um ihm aufzurufen benötigt man nur eine einzige Zeile Quelltext:
PrinterSetupDialog1.Execute;
Delphi ändert automatisch die aktuellen Einstellungen des Druckers.
Der andere Dialog von Delphi namens TPrintDialog, ebenfalls auf der Seite Dialoge, kann auch zum verändern der Druckereinstellungen genutzt werden. Aber er wird eher zum Bestätigen des Druckauftrags und Festlegung der Anzahl der Kopien benutzt.
Der Hierfür notwendige Quelltext ist:
if PrintDialog1.execute then
begin
{Eigenlicher Code für das Drucken}
end;
Der Block hinter dem then wird nur ausgeführt, wenn der Dialog mit Ok bestätigt wurde. Ansonsten wären die anwesiungen für das Drucken auch fehl am Platze. Als eigentlicher Code für das Drucken kommen 2 möglichekeiten in Frage. Viele Komponenten habe eigene Druckroutinen (z.B: TRichEdit), die natürlich einfach zu nutzen sind. Andererseits kann man die Unit Printers einbinden:
uses Windows, Messages, ... , Printers;
Danach ist es möglich auf der Leinwand (canvas) von Printer zu zeichnen.
Weitere nötige/nützliche Methoden dabei sind:
Printer.BeginDoc; //Startet ein neues Dokument
Printer.EndDoc; //Beendet das aktuelle Dokument: der
//Druckborgang beginnt
Printer.NewPage; //Beginnt eine neue Seite