Jak wydrukować o dowolnym rozmiarze np.
Image1.Canvas.FillRect(rect(0,0,840,1310))
zawartość Image1.Canvas
0
0
Witam.
Uses ....Printers, jpeg, .... ;
.
..
.
procedure TForm1.Button1Click(Sender: TObject);
begin
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Rect(0,0,840,1310),Image1.Picture.Graphic);
Printer.EndDoc;
end;
[cya]