Drucken in eine Datei

[Flocke]

Ggf. geht's so:

Delphi-Quellcode:

procedure BeginDocWithFilename(Printer: TPrinter; const Filename: string);
var
  DC: HDC;
  DocInfo: TDocInfo;
begin
  if not Printer.Printing then
    Printer.BeginDoc;

  if Filename <> '' then
  begin
    DC := Printer.Handle;

    EndPage(DC);
    AbortDoc(DC);

    FillChar(DocInfo, SizeOf(DocInfo), 0);
    with DocInfo do
    begin
      cbSize := SizeOf(DocInfo);
      lpszDocName := PChar(Printer.Title);
      lpszOutput := PChar(Filename);
    end;

    StartDoc(DC, DocInfo);
    StartPage(DC);
  end;
end;

... und dann BeginDocWithFilename(Printer, 'C:\hallo.prn') aufrufen statt Printer.BeginDoc.