Auf Windows Fax drucken - Nur ein weißes Blatt

[alleinherrscher]

Hi@all!

Ich scanne ein Bild ein, und habe es dann in einem Bitmap liegen (ziemlich groß, aber naja.)

Diese Befehle benutzte ich um das Bitmap auf dem Fax zu drucken:

Delphi-Quellcode:

Printername:='Fax';


Printer.PrinterIndex:=Printer.Printers.IndexOf(Printername);

if Printer.Printers[Printer.PrinterIndex]<>Printername then
  if not PrinterSetupDialog1.execute then exit;
 
    with Rect1 do
      begin
        Top:=0;
        Left:=0;
        Bottom:=Printer.PageHeight;
        right:=Printer.PageWidth;
      end;


Printer.BeginDoc;

for i:=0 to aImageList.Count-1 do
begin
  aBitmap:=aImageList.Items[i];
  Printer.Canvas.StretchDraw(rect1,aBitmap);
  if i<> aImageList.count-1 then
    Printer.NewPage;
end;

Printer.EndDoc;

Leider bekomme ich nur leere weiße Blätter im Fax, während, wenn ich anstatt auf das WindowsFax auf meinem Drucker drucke, funktioniert alles wunderbar...

Jemand ne idee woran das liegen kann? Wäre für eine schnelle Hilfe sehr dankbar!
Grüße,

ALleinherrscher