Drukuj Image1.Canvas

0

Jak wydrukować o dowolnym rozmiarze np.
Image1.Canvas.FillRect(rect(0,0,840,1310))
zawartość Image1.Canvas

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]

1 użytkowników online, w tym zalogowanych: 0, gości: 1