直接上代码:
VAR
dpix, dpiy:Double;
px, py:Integer;
Picture: TPicture;
rect1:TRect;
begin
Picture:=TPicture.Create;
Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'print\'+form1.Edit10.Text+'template.jpg');
if printdialog1.execute then
begin
px := GetDeviceCaps(Printer.Handle, logPixelsX);
py := GetDeviceCaps(Printer.Handle, logPixelsY);
dpix:=px/300;
dpiy:=py/300;
rect1:=Rect(0,0,round(Picture.Width*dpix),round(Picture.Height*dpiy));
with Printer do
begin
begindoc;
//将放大的图形向打印机输出
canvas.stretchdraw(rect1,Picture.graphic);
enddoc;
end;
end;
end;