其他分享
首页 > 其他分享> > Delphi制作打印面签案例

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