Grafik skaliert drucken

[Hador]

Ich benutze folgenden Code, um ein Bild auf Blattgröße skaliert auszudrucken:

Delphi-Quellcode:

pic := TBitmap.Create;
pic.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Daten\gpkb05');
with Printer do
begin
  Orientation := poLandscape;
  BeginDoc;
  breite:=GetDeviceCaps(Printer.Handle,Horzres);
  hoehe:=GetDeviceCaps(Printer.Handle,Vertres);
  Canvas.StretchDraw(Rect(0,0,Breite,Hoehe), pic);
  EndDoc;
end;
pic.Free;

Wenn ich meinen Canondrucker ausgewählt habe, macht der das auch ohne Probleme.
Sobald ich aber einen virtuellen Drucker (Distiller, PDFCreator, Fineprint) auswähle, ist dass Blatt leer.

Hat irgendeiner eine Idee, warum das so ist?

[Push-Beitrag]
Hat denn keier ne Idee, woran das liegen könnte ?
Oder wie ich das ganze alternativ realisieren könnte?
[/Push-Beitrag]

[edit=Christian Seehase]Pushen frühestens nach 24 Stunden, nicht nach 4 Mfg, Christian Seehase[/edit]