【发布时间】:2012-04-25 00:07:12
【问题描述】:
您能否使用 Quick Reports Pro 组合纵向报告和横向报告?
快速报告帮助文件片段:
处理这种情况的方法是使用 TQRCompositeReport 组件。将一个放在要开始打印的表单上。首先,您需要为其 OnAddReports 事件定义一个处理程序,该事件调用 TQRCompositeReport.Add 方法来添加您需要打印的所有 TQuickRep 组件。假设您要打印的报告保存在名为 RepNewCust、RepOrderSummary 和 RepStockReorder 的表单上,并且在每种情况下,表单上的 TQuickRep 组件都称为“报告”(请参阅下面的“TQuickRep 详细信息”部分了解您可能这样做的原因) .那么您的 OnAddReports 事件处理程序应该如下所示
procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
begin
QRCompositeReport1.Reports.Add(RepNewCust.Report);
QRCompositeReport1.Reports.Add(RepOrderSummary.Report);
QRCompositeReport1.Reports.Add(RepStockReorder.Report);
end;
现在您可以调用 QRCompositeReport1.Print 将所有三个报告一次打印出来,然后调用 QRCompositeReport1.Preview 一起预览它们。还有 TQRCompositeReport 组件属性,可让您设置纸张大小并为复合报告设置整体标题 - 基本上是您在一个地方处理多个报告的输出所需的一切。
我想在纵向和横向之间混合如下:
RepNewCust.Report(纵向)
RepOrderSummary.Report(纵向)
RepStockReorder.Report(横向)
这个可以吗?
【问题讨论】:
标签: delphi printing quickreports