Thema: Delphi Print ToFile

Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Print ToFile

  Alt 3. Nov 2006, 01:14
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
  Mit Zitat antworten Zitat