关于打印图象大小的问题?(100分)

  • 主题发起人 主题发起人 victorwin
  • 开始时间 开始时间
V

victorwin

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么我在QUICKREP用QRIMAGE打印出来的图片与用PHOTOSHOP打印出来的大小不一样?

用同一图片。
 
打印机的分辨率?
 
是分辨率不同,一个200*300的图片,在屏幕上很好看,但打到打印机上就是一个很小的图象,
你得在打印时重新设置打印图片的大小

//参照这个
with ImgMain.Picture.Bitmap do
begin
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Canvas.ClipRect, imgMain.Picture.Bitmap);
Printer.EndDoc;
end; { with }
 
代码:
procedure TMainForm.printClick(Sender: TObject);
var
   ScaleX, ScaleY: Integer;
   R: TRect;

begin
   if printdialog1.Execute then
      begin
         Printer.BeginDoc; // **
         with Printer do
         try
            ScaleX := GetDeviceCaps(Handle, logPixelsX) div
               PixelsPerInch;
            ScaleY := GetDeviceCaps(Handle, logPixelsY) div
               PixelsPerInch;
            R := Rect(0, 0, Image1.Picture.Width * ScaleX,
               .Image1.Picture.Height * ScaleY);
            Canvas.StretchDraw(R, Image1.Picture.Graphic); // ** 要拉伸
         finally
            EndDoc; // **
         end;
      end;
end;
 
多人接受答案了。
 
后退
顶部