REPORT BUILDER如何制作分栏打印效果!(100分)

  • 主题发起人 主题发起人 kinn_liu
  • 开始时间 开始时间
K

kinn_liu

Unregistered / Unconfirmed
GUEST, unregistred user!
要求显示效果如下:
COLUMN1 COLUMN2 | COLUMN1 COLUMN2
----------------------------------------------
RECORD1 RECORD1 | RECORD2 RECORD2
RECORD3 RECORD3 | RECORD4 RECORD4
。 。
。 。
。 。
请问诸位大虾如何在report builder中实现。
 
我的程序代码,送与你自己理解。
procedure TForm3.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
form1.table1.First;
end;

procedure TForm3.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
moredata:=true;
if not form1.table1.eof then
begin
//24---29为显示数据标签
qrlabel24.caption:=form1.table1.fieldbyname('yjhm').asstring;
qrlabel27.caption:=form1.table1.fieldbyname('yjhm').asstring;
form1.table1.next;
end;
if form1.table1.eof then
moredata:=false;
end;
 
很简单。
在ReportBuilder 中不用写任何代码就可实现你的功能:)
双击报表控件(如ppReport1),打开报表设计器。选择菜单 File -> Page Setup...
打开报表纸张设置 , 选择 “Layout”页, 设置Columns 为 2,
设置 Columns Traversal 为 “Left To Right” (默认为Top To Bottom)。
然后单击“OK”
预览一下, 一切OK 。:)
 
lighttop的答案是正解
谢谢两位。
 
后退
顶部