Delphi制作打印面签案例
作者:互联网
一、 在主窗体添加frxReport1、OpenPictureDialog1、Button1三个组件。
二、Button1的OnClick单击事件
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.execute then
begin
TfrxPictureView(frxReport1.FindObject('Picture1')).Picture.loadfromfile(OpenPictureDialog1.filename);
frxReport1.ShowReport();
frxReport1.Print;
end;
end;
三、双击frxReport1组件进行布局设计
标签:begin,end,frxReport1,Delphi,打印,Button1,OpenPictureDialog1,组件,面签 来源: https://blog.csdn.net/qlwx1688/article/details/122678500