DAO结果集的数据在VB中如何打印出来

Question

如题，只使用VB中自带的属性或控件如何打印通过DAO方式查询的数据结果集

Answer 1

使用 Priter 对象：Dim strLine As String
Dim i As Integer, n As Integer
Const PageLines As Integer = 30Do Until rs.EOF
   strLine = ""
   For i = 0 To rs.Fields.Count - 1
      strLine = strLine & Fields(i)
      If i < rs.Fields.Count - 1 Then strLine = strLine & vbTab
   Next i
   Printer.Print strLine
   n = n + 1
   If n = PageLines Then
      Printer.NewPage
      n = 0
   End If
Loop
Printer.EndDoc

Answer 2

使用 Printer 对象：Dim strLine As String
Dim i As Integer, n As Integer
Const PageLines As Integer = 36Do Until rs.EOF
   strLinr = ""
   For i = 0 To rs.Fields.Count - 1
      strLine = strLine & Fields(i)
      If i < rs.Fields.Count - 1 Then strLine = strline & vbTab
      Printer.Print strLine
      n = n + 1 
      If n = PageLines Then
         Printer.NewPage
         n = 0
      End If
      rs.MoveNext
Loop
Printer.EndDoc

Answer 3

Do Until rs.EOF
   strLinr = ""
   For i = 0 To rs.Fields.Count - 1
      strLine = strLine & Fields(i)
      If i < rs.Fields.Count - 1 Then strLine = strline & vbTab
   Next i
   Printer.Print strLine
   n = n + 1 
   If n = PageLines Then
      Printer.NewPage
      n = 0
   End If
   rs.MoveNext
Loop
Printer.EndDoc

Answer 4

楼主，强烈推荐用 vsview 8.0 的控件。有问题再找我...

Answer 5

To of123 :我回去试一下可是不能用VB自带的控件报表打印DAO数据集么

Answer 6

to bfyqlxd(*小朋友*) 
呵呵，没办法呀，布置的任务呀，有没有办法打印呢