Hallo,
ich hatte auch mal dieses "Problem". Ich hab mir die Unit
Printers genommen kopiert und umbenannt z. B. in
tMyPrinter.pas.
Jetzt musst Du nur noch eine Zeile in die
TPrinter.BeginDoc Procedure einfügen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
| procedure tPrinter.BeginDoc; var DocInfo: TDocInfo; begin
with DocInfo do begin cbSize := SizeOf (DocInfo); lpszDocName := PChar (Title); lpszOutput := PChar (OutputFile); end;
end; |
OutputFile ist in meinem Fall eine Eigenschaft die ich dem tPrinter-Objekt hinzugefügt habe:
Delphi-Quelltext
1:
| property OutputFile: string read fOutputFile write fOutputFile; |
Gruß
TINO