L
leijh001
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.BitBtn7Click(Sender: TObject);
var
bmp: tgraphic;
begin
bmp:=image1.Picture.Graphic;
Printer.begin
Doc;
printer.Canvas.StretchDraw(rect(0,0,2000,1500),bmp);
Printer.EndDoc;
end;
var
bmp: tgraphic;
begin
bmp:=image1.Picture.Graphic;
Printer.begin
Doc;
printer.Canvas.StretchDraw(rect(0,0,2000,1500),bmp);
Printer.EndDoc;
end;