我要打印image1,在FastReport中放了一个picture框,如何才能预览并打印,我用的是fr3
我找到这样一个代码,可是不行啊,fr3中没用memo,view这些参数阿
procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
if view.Name='Picture1' then
TfrPictureView(view).picture.Assign(image1.picture);
end;
我找到这样一个代码,可是不行啊,fr3中没用memo,view这些参数阿
procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
if view.Name='Picture1' then
TfrPictureView(view).picture.Assign(image1.picture);
end;
解决方案 »
- 请教:如何判断外置猫是否已与电脑相连??
- 请问将下面方法转换成delphi的该怎么写,主要是IHTMLWindow2的用法,请用过的朋友帮助。
- 请高手指点一下,我用TClientSocket和TServerSocket编写的程序,当TClientSocket连续(大概有1000-2000条记录左右,一次连续就要发这么多)向T
- 天太热了,请大家来喝点可乐,呵呵
- 哪位朋友会做变型验证码识别???
- 如何将报表统计结果以非报表形式显示??急急急.......
- delphi5 在2000p上使用存在的问题
- 大小写转换不一样
- 能否暂停sql的执行,还有能显示执行进度吗?请高手做答。
- 请问各位告诉我在你们所在地找工作看重的什么。计算机专业什么发展方向吃香?
- 七十年代出生的九大尴尬
- 找DELPHI群 我是初级想多多交流 QQ:94170464
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
if sender.Name='Picture1' then
TfrxPictureView(sender).picture.Assign(image1.picture);
end;