图像打印的问题? (200分)

  • 主题发起人 主题发起人 zjqpost
  • 开始时间 开始时间
Z

zjqpost

Unregistered / Unconfirmed
GUEST, unregistred user!
我在DELPHI6中使用热升化(SONY DP-10打印机)打印图片时不知为何总是打印不出图像来,打印图像有何较好的软件
是不是我的DELPHIE有 问题,但打印文本基本上没有问题.用其他软件打印没有问题.
有没有能在DELPHI6中使用的能旋转图像的控件,不用DELPHI自带的打印控件,用什么控件?
 
对你的打印机不熟,我想还是程序设计上的问题,因为有些打印机打印的命令是不同的
 
打印图像在DELPHI中是否有什么要注意的问题?
 
我在QRPORT中用一个IMAGE1控件装了一副JPEG图像,想把他打印出来,能预览,可是一打印就
就打印不出图像来
 
打印图象 :记得添加Printers单元

procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;

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;

 
卷起千堆雪?我用你的方法在IMAGE1里加了一副JPEG图像,当仍打印不出任何东西,而我用
其他软件都能打印出图像,是不是我的DELPHI6有问题哟!
 
多人接受答案了。
 
后退
顶部