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

[little_tao_tao]

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

[tainy04]

Crystal report 应是没有问题

[cipher19]

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连接起来