这可能是个很菜的问题,因为我以前没有写过打印的代码。
我在调用Quickrep1.preview后,预览的界面就出来了。可是如果点击Printsetup,进行纸张或者打印方向等设置,点击确定后,preview却没有更新。我不知道在哪个事件里面写更新的代码,如quickrep1.refresh或者quickrep1.update???
我用的是Quickrep 4.0,当然以前用的是3.0.9,delphi6自带的,因为自带的解决不了问题,才升级为Professional,结果还是没有结果。
我在调用Quickrep1.preview后,预览的界面就出来了。可是如果点击Printsetup,进行纸张或者打印方向等设置,点击确定后,preview却没有更新。我不知道在哪个事件里面写更新的代码,如quickrep1.refresh或者quickrep1.update???
我用的是Quickrep 4.0,当然以前用的是3.0.9,delphi6自带的,因为自带的解决不了问题,才升级为Professional,结果还是没有结果。
建议:用QuickRep和QRPreview组件实现报表的自定义预览
转贴:
自定义几个按钮,配合qrpreview就可以做出自己的预览界面:扩展高度:qrpreview1.ZoomToFit ;
扩展宽度:qrpreview1.ZoomToWidth ;
实际大小:qrpreview1.Zoom := 100;
关闭报表:qrpreview1.Visible := false ;
第一页:qrpreview1.PageNumber := 1;
上一页:
if pageid > 1 then
begin
pageid := pageid - 1;
qrpreview1.PageNumber := pageid;
end;
下一页:
if pageid < pcount then
begin
pageid := pageid + 1;
qrpreview1.PageNumber := pageid;
end;
最后一页:
qrpreview1.PageNumber := qrpreview1.QRPrinter .PageCount实现QuickRep和QRPreview的关联用:
QRPreview.qrprinter := QuickRep.qrprinter;
我也尝试过使用QRpreview来进行预览,并且在Quickrep的OnPreview事件中,写过QRPreview.qrprinter := QuickRep.qrprinter;当时Quickrep所在的窗体就没出现,
连Quickrep的预览界面和QRPreview的界面都没出来,不知道怎么回事,就没有继续尝试下去,楼上的有什么建议吗?谢谢。