没有啊,我用其他的作图软件打印很好啊?
相关打印的部分是这么写的
procedure TForm1.PrintImg;
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
if printdialog1.Execute then
begin
Printer.begin
Doc;
with Printerdo
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div
PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div
PixelsPerInch;
//temp := GetDeviceCaps(Handle, logPixelsX);
R := Rect(500, 400, Image2.Picture.Width * (ScaleX-1)+600,
Image2.Picture.Height * (ScaleY-1)+500);
//在采用照片质量打印的时候非得减一要不然就大小不一样?
Canvas.StretchDraw(R, Image2.Picture.Bitmap);
finally
EndDoc;
end;
end;
end;