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