Großes Bitmap drucken (plotten)

[ak1]

Jupp habe das Bild jetzt proportional gestrecht:

Code:

Printer.BeginDoc;
    With Printer.Canvas Do
    Begin
      SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC); // Printermode auf 1/10 mm

      Rect(0, 0, druckbildbreite, -1* druckbildhoehe);
      StretchDraw(Printer.Canvas.ClipRect, bmpMyPrinter);
      
    End;
    Printer.Enddoc;