如何给FastReport报表导入一张图片并显示

2025-03-22 19:34:18
推荐回答(2个)
回答1:

你的意思是想在A4纸张上打印2次这样的内容是么?好比上面的是存根。
如果你要会编程的话 可以把所有的报表上的控件复制一遍添加在报表文件里。即可。如果没有编程基础的话,那只能依靠设置打印来完成了,可以设置个字定义的纸张(是A4一半大小)然后打印时设置打印2份即可。

回答2:

碰巧,这几天做了一个个人简历的报表,和你的问题类似,把源码贴出来,你参考一下吧。
procedure Tzjl_rsda_cx_f.frReport_grjlBeforePrint(Memo: TStringList;
View: TfrView);
var
xpstream:TStringStream;
xpjpeg:Tjpegimage;
begin
if View.Name='Picture1' then
begin
xpstream:=TStringStream.Create('');
TBlobField(ADOQuery_xp.FieldByName('x_xp')).SaveToStream(xpstream);
xpstream.Position:=0;
xpjpeg:=TJPEGImage.Create();
xpjpeg.LoadFromStream(xpstream);
TfrPictureView(View).Picture.Bitmap.Assign(xpjpeg);
xpstream.Free;
xpjpeg.Free;
end;
end;

应该能看懂吧。
祝你好运!!!