Hej
Den nedstående print - code virker fint.
Kunne godt tænke sig Preview funktionen, med Scale op / ned så det kunne ses
inden det udskrives.
Var det noget du havet et eksempel på eller en ide, som du kunne tænke dig,
at give videre?
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic); // **
finally
EndDoc; // **
På forhånden tak
MVH
Monie
|