请问，一个比较难的问题？谢谢，看看

Question

我想打印程序中生成的数据表的内容，字段不一定，内容不一定，请问有什么控件可以用，还是采用VB内置对象PRINTER来做呢？
有代码吗？谢谢

Answer 1

Crystal report 应是没有问题

Answer 2

Dim i As Integer
Dim j As Integer
Dim lox As Long                       '字段间距
Dim fname As String                   '字段名称
Dim pos As Integer
    
lox = 10        
  For i = 0 To 4                        '假设有5个表，每个表中有30个字段     
     For j = 0 To 39
        if selectedfields(i, j) <> "" Then
           pos = InStr(selectedfields(i, j), ".") 'selectedfields(i,j)是需打印字段
           fname = Mid(selectedfields(i, j), pos + 1)
           m_Report.Sections(2).AddTextObject fname, lox, 0
           m_Report.Sections(3).AddFieldObject "{ado." & selectedfields(i, j)& "}", lox, 0
           lox = lox + 1300
        End If
    Next
Next我用的是vb连接crystal report
你必须先将vb和crystal report连接起来