datareport

[l999]

我想用datareport打印超市的流水单
例如
商品 价格
*** 1.0
_____________
某超市

商品 价格
*** 1.0
_____________
某超市

让它接着打下来
请问怎么做

[l999]

我的意思的让打印机不是按页打印
我用datareport作报表
如何实现超市流水单打印出来

[zhangqs]

建议不用datareport,直接使用printer对象，因为datareport是强制分页的

[l999]

能说具体一点吗？
怎么做

[l999]

用什么控件能实现我说的功能
用active report 行吗？
不行， 用什么控件
帮帮忙吧！

[wea1978]

直接控制打印机，也就是zhangqs(zhangqs）说的printer对象,使用print (string)
enddoc结束，应该不是很麻烦，因为超市的字段比较少，要实现也好一些

[l999]

能给一个例子吗？实现超市流水单
printer str
对吗？
打印记录集呢怎么实现
商品名 价格
***

***
某超市

[78815]

for i=1 to n
printer.print rs(i)
printer.newpage'新的页面

next

printer.enddoc

试试看！！！

[l999]

用printer
打印怎么还是按页打印
而且还是连续不断的打印
我的代码是
Dim i As String
Dim j As Integer
i = "餐饮系dfgdfgdfgdgdfgd"

Printer.CurrentX = 1000
Printer.Height = 4000
Printer.FontSize = 20
Printer.Print i

For j = 1 To 5
Printer.Print j

Next j
Printer.Print i

Printer.EndDoc
请问有什么错误吗?