打印问题还没解决，帮帮我，再放１００分

Question

我想在发票上每张打印4条记录，打印换页有什么命令吗
怎么样使发票每打印4条记录换页

Answer 1

用printer对象来控制：
printer.print "打印的内容"
printer.print...
够四条记录了就
printer.NewPage
最后调用printer.enddoc

Answer 2

hbxsq(阿信) 
非常感谢，那每张打印4条记录循环语句怎么写？

Answer 3

我向你推荐一个极好的打印控件，免费提供全部源代码：http://www.tastysoft.net/progame/web/dllprint/http://www.tastysoft.net/progame/web/orderprint/http://www.tastysoft.net/progame/web/希望能对你有所帮助。

Answer 4

'试一下这样
dim x as long,y as long,i as long
x=3000
y=500
for i=1 to 10'打10页
    x=x+1000
    Printer.CurrentX = x
    Printer.CurrentY = y
    Printer.Print "abc"
    Printer.NewPage'下一页
next i
Printer.EndDoc  '打印结束

Answer 5

'不好意思,上面只打一条记录.如下可以打多条记录dim x as long,y as long,i as long
x=3000
y=500
for i=1 to 10'打10页
    x=x+1000
    Printer.CurrentX = x
    Printer.CurrentY = y
    Printer.Print "abc"
    Printer.Print "DDDDDDDDDD"
    Printer.Print "EEEEEEEEEE"
    Printer.Print "FFFFFFFFFF"
    Printer.NewPage'下一页
next i
Printer.EndDoc  '打印结束

Answer 6

i = 0
Do While i Mod 4 = 0
  i = i + 1
  Printer.Print "打印的内容"
  Printer.Print
  Printer.EndDoc
  If i = 4 Then
    Printer.NewPage
    i = 0
  End If
Loop

Answer 7

i = 1
Do While i Mod 5 = 0
  i = i + 1
  Printer.Print "打印的内容"
  Printer.Print
  Printer.EndDoc
  If i = 5 Then
    Printer.NewPage
    i = 1
  End If
Loop
这个应该行了，呵呵

Answer 8

支持nmgwangwei(巍巍)，这样应该就可以实现了！

Answer 9

支持nmgwangwei(巍巍)，这样应该就可以实现了！

Answer 10

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim h As Integercon.Open 连接字符串
rs.Open SQL(查询语句), con, 1, 1If rs.RecordCount > 0 Then
    rs.PageSize = 4  '一页四条记录
    For h = 1 To rs.PageCount '页数循环
        rs.AbsolutePage = h   '当前记录的页数。
        For i = 1 To rs.PageSize  '1 到 4 条记录循环
            
            '这里用定位打印就可以了。
        
            
        rs.MoveNext
        Next i
    Next h
End If