Print ToFile

[omata]

Hallo Mario,

es geht zum Beispiel so...

Eine neue Unit anlegen MyPrinters.pas mit folgendem Inhalt...

Delphi-Quellcode:

unit MyPrinters;

interface

var FPrintToFile:string;

implementation

initialization
  FPrintToFile:='';
end.

Die Printers.pas in dein Programmverzeichnis kopieren und eine kleiner Änderung machen...

Delphi-Quellcode:

procedure TPrinter.BeginDoc;
:
begin
  :
  with DocInfo do
  begin
    :
    if FPrintToFile<>'' then
      lpszOutput:=PChar(FPrintToFile);
  end;
  :
end;

In die Unit, in der du druckst muss dann MyPrinter.pas und Printers.pas eingebunden werden. Dann kannst du über FPrintFile den Dateinamen angeben und dann normal drucken.

Gruss
Thorsten