Bild drucken

[ol1uw]

Also bis jetzt hat dies bei mir immer funktioniert

Delphi-Quellcode:

    with printer.Canvas do
    begin
      Font.Name := 'Courier New';
      Font.Height := 80;
      Font.Style := [fsBold];
      SetTextAlign(handle, TA_CENTER + TA_TOP);
      Breite := getDevicecaps(handle, horzsize) * 10;
      Hoehe := getDevicecaps(handle, vertsize) * 10;
      // .....

      // ......
      SetTextAlign(handle, TA_CENTER + TA_TOP);
      TextOut((breite div 2), -450, '  Faxversand erfolgreich');
      Moveto(0, -510);
      Lineto(Breite, -510);
      // teilweiser Ausdruck der Faxseite 
      FillRect(Rect(0, -512, Breite, (Hoehe - 512) * -1));
      StretchDraw(Rect(0, -512, Breite, (Hoehe + 512) * -1),Bitmaptemp.Graphic);
    end;

Gruß Uwe