Print ToFile

[marabu]

Hallo.

Bei mir funktioniert das hier:

Delphi-Quellcode:

uses
  Printers;

procedure PrintToFile(fn: TFileName);
var
  PrtDevice: array [Byte] of Char;
  PrtDriver: array [Byte] of Char;
  PrtPort: array [Byte] of Char;  // keep filenames small
  PrtDeviceMode: Cardinal;
begin
  with Printer do
  begin
    GetPrinter(PrtDevice, PrtDriver, PrtPort, PrtDeviceMode);
    if fn = ''
      then PrtPort[0] := #0
      else Move(fn[1], PrtPort, Succ(Length(fn)));
    SetPrinter(PrtDevice, PrtDriver, PrtPort, PrtDeviceMode);
  end;
end;

Um die Ausgabe in die Datei zu beenden muss einfach ein leerer String als Dateiname übergeben werden.

Grüße vom marabu