Externes Programm

[oldmann]

Hallo,

ich rufe diese Programmzeilen auf.
Dabei startet das externe Programm und stellt ein PDF her.
Gruss Oldmann

Delphi-Quellcode:

   GetDefaultPrinter;
   printer.printerindex := printer.printers.indexof ('StepOver PDF Converter');
   NicePreview1.PrintAll;
   printer.printerindex := printer.printers.indexof (GetDefaultPrinter);


procedure TNicePreview.PrintAll;
var
  Wmf: TMetafile;
  x: Integer;
begin
  if (Pages.Count > 0) then
  begin
    with Printer do
    begin
      Title := filename;
      BeginDoc;
      for x := 0 to Pages.Count-1 do
      begin
        Wmf := TMetafile(Pages[x]);
        Canvas.StretchDraw(Rect(0, 0, PageWidth, PageHeight), Wmf);
        if (x <> Pages.Count-1)
          then NewPage;
      end;
      EndDoc;
    end;
  end;
end;