delphi 帮助中有例子的
uses
printer;procedure TForm1.BitBtn1Click(Sender: TObject);
var
grp : TGraphic;
rect : TRect;
begin
grp := TGraphic.Create;
grp := Image1.Picture.Graphic;
printer.begindoc;
printer.Canvas.StretchDraw(rect, grp);
printer.enddoc;
grp.Free;
end;
uses
printer;procedure TForm1.BitBtn1Click(Sender: TObject);
var
grp : TGraphic;
rect : TRect;
begin
grp := TGraphic.Create;
grp := Image1.Picture.Graphic;
printer.begindoc;
printer.Canvas.StretchDraw(rect, grp);
printer.enddoc;
grp.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货