Hallo,
im Prinzp geht es mir darum, dass ich ein großes Bitmap erstelle, welches ich auf einem Plotter ausdrucken will.
Mit folgender Routine passe ich das Bild an die Größe das Druckerblattes an:
Code:
Printer.BeginDoc;
With Printer.Canvas Do
Begin
StretchDraw(Printer.Canvas.ClipRect, bmpMyPrinter);
Verti := GetDeviceCaps(Printer.Handle, HORZRES);
Hori := GetDeviceCaps(Printer.Handle, VERTRES);
FaktorH := Hori / bmpMyPrinter.Height;
FaktorV := Verti / bmpMyPrinter.Width;
Font.Name := 'MS Sans Serif';
Font.Size := 8;
End;
Printer.Enddoc;
Da das Bild aber geplottet wird, möchte ich vor den Druckereinstellungen eine Messagebox anzeigen in der eine "Empfehlung" für die einzustellende Blattgröße im Millimetern angegeben wird. Das ist insofern wichtig, da das Bitmap eine variable Länge hat.