Question

怎么在delphi程序中设置打印机的分辨率，使

若以下回答无法解决问题，邀请你更新回答

Answer 1

示例代码：
procedure TCAD.Print;
var
X, Y: integer;
PixelsPerInchX,PixelsPerInchY:integer;
R: TRect;
begin
Printer.BeginDoc;
with Printer do
try
PixelsPerInchX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
PixelsPerInchY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
X:=round(emf.MMWidth * PixelsPerInchX/2540);
Y:=round(emf.MMHeight* PixelsPerInchY/2540);
R := Rect(0, 0, X, Y);
Canvas.StretchDraw(R, emf);
finally
EndDoc;
end;
end;