如何打印TImage中的图片?
要用到printdialog
要用到printdialog
解决方案 »
- 如何让fastreport 设计的了表纵向打印,不不是指纸张的横纵向?
- DELPHI发送数据的问题
- 使用动态数组的问题
- 请教棘手的问题
- 晕,谁第一个解决我的问题,100分全给了。关于TStack的
- 开始用DELPHI做MIS了,问兄弟们几个问题。
- 比較table1表和table2表﹐將table2表中在table1表不存在的記錄更新到table1表
- 请问各位老大,如何点击一个按钮弹出一个菜单???
- 我在Delphi6下找不到OrbPas.dcu,只在D5下找到这个文件,但它却要,怎么办,
- 送分的问题:用数组表示的字符串与纯字符串的不同
- 请教............
- 为什么编译后的程序在win2000下的字体显示正常,而在win98下字体却变得又小又不清楚。
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;