一个简单的问题

Question

用vb+access做的一个简单的数据表打印显示,用report来实现,
        stDocName = "table_report"
        DoCmd.OpenReport stDocName, acViewPreview
现在记录在该table_report中一行一条的显示,如何才能一行显示两条?
原来是这样的:
-----------------------------------------------------------
200000
北京市西城区xxx号
张明200041
上海市虹口区xxx号
李天300012
天津市xxxxxxxxxx
王乐100000
广州市xxxxxxxxxx
周莉
--------------------------------------------------------------------
现在要这样显示
--------------------------------------------------------------------
200000                                       200041
北京市西城区xxx号                            上海市虹口区xxx号
张明                                         李天300012                                       100000
天津市xxxxxxxxxx                             广州市xxxxxxxxxx
王乐                                         周莉
---------------------------------------------------------------------
请问如何解决?

Answer 1

ActiveReport报表可以自动实现,将columns=2就可以了(原来为1)
但Report我不知道有没有该功能,这应该是报表提供的.

Answer 2

没这样用过建议用printer借用别人给我的话：指哪打哪

Answer 3

用什么报表component?我记得在delphi中有个参数设置可以的

Answer 4

这种情况建议使用printer对象手工写打印代码

Answer 5

'高度T，在L、R之间输出con
Sub ppm(l, r, T, con$)
    Printer.CurrentX = l + (r - l - Printer.TextWidth(con$)) \ 2
    Printer.CurrentY = T
    Printer.Print con$
End Sub
'高度T从R方向左对齐
Sub rpm(r, T, con As String)
    Printer.CurrentX = r - Printer.TextWidth(con$)
    Printer.CurrentY = T
    Printer.Print con$
End Sub
'从X、Y点输出字串con
Sub textout(x, Y, con As String)
    Printer.CurrentX = x
    Printer.CurrentY = Y
    Printer.Print con
End Sub