RSS订阅 | 匿名投稿
您的位置:网站首页 > 打印 > 正文

Delphi 抓图后打印这张图片,弹出打印属性框

作者:admin 来源:未知 日期:2011/4/11 21:19:46 人气: 标签:

如果用窗体.print打印的话,会导致一些控件打印不出来,比如下拉列表,还有打印TChart也会导致只打印TChart的原始状态,而不会打印有数据的TChart

所以我就想到了先抓图,后打印

抓图后下拉列表和TChart都正常显示了,可是还有一点不好,就是下拉列表中的值是显示不到的,但Label可以显示,所以可以在打印的时候把下拉列表的值换成Label来显示

代码:


procedure TFrmLltj.Button1Click(Sender: TObject);
var
FormImage: TBitmap;
MyImage:TImage;
r1:TRect;
begin //52
grp2_lbl_lk.Caption := cbb_xzlk.Text; //选择的路口赋

grp2_lbl_qs_n.Caption := cbb_qs_n.Text + ' 年'; //选择的年
grp2_lbl_qs_y.Caption := cbb_qs_y.Text + ' 月'; //选择的月
grp2_lbl_qs_r.Caption := cbb_qs_r.Text + ' 日'; //选择的日
grp2_lbl_qs_s.Caption := cbb_qs_s.Text + ' 时'; //选择的时
grp2_lbl_qs_f.Caption := cbb_qs_f.Text + ' 分'; //选择的分

grp2_lbl_js_n.Caption := cbb_js_n.Text + ' 年'; //选择的年
grp2_lbl_js_y.Caption := cbb_js_y.Text + ' 月'; //选择的月
grp2_lbl_js_r.Caption := cbb_js_r.Text + ' 日'; //选择的日
grp2_lbl_js_s.Caption := cbb_js_s.Text + ' 时'; //选择的时
grp2_lbl_js_f.Caption := cbb_js_f.Text + ' 分'; //选择的分

GroupBox1.Visible := False; //打印起始时隐藏GroupBox1

FormImage := GetFormImage; //抓图
MyImage := TImage.Create(nil); //

try //53
Clipboard.Assign(FormImage);
MyImage.Picture.Assign(Clipboard);

r1:=Rect(50,50,1500,1500); //设置x坐标,y坐标,横大小,竖大小
if printdialog1.execute then //弹出打印属性框
begin //54
printer.begindoc; //开始打印
Printer.Canvas.StretchDraw(r1,MyImage.Picture.Graphic); //打印中
//Printer.Canvas.draw(0,0,MyImage.Picture.Bitmap);
printer.enddoc; //结束打印
end; //54

//MyImage.Picture.SaveToFile('D:/temp.bmp');
finally
begin //55
MyImage.Free; //释放资源
FormImage.Free;//释放资源
GroupBox1.Visible := True; //打印结束后显示GroupBox1
end; //55
end; //53
end; //52
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: