各位，怎样才能在最快最省事的把一个数据库（DBF格式）打印出来？？？

[xpwang]

我用的是ADODB连接的数据库，因为动态查询的结果需要打印，大家帮帮偶吧！！！

[无言无忌]

用DataReport可以，也挺快的。

• 打赏
• 举报

回复 赞

[michaelpeng7799]

你可以导出到EXCEL表里再打，我就是那么做的。
这里我以前粘过一篇文章，那个文章里有一个源程序下载的联接，如果下载不过给我发EMAIL，我可以给你EMAIL过去。
http://www.csdn.net/develop/read_article.asp?id=2226

• 打赏
• 举报

回复 赞

[xpwang]

[e-mail] <[e-mail]>

你的信箱是不是有问题哦
给我退回来了

我的数据表最多时有字段40个，我在打印是让用户选择需要的字段打印，当用户选择完后便在基础表（有40个字段的表）上
形成一张打印表，而这张打印表需要转换到能够打印的控件里，如果你有原代码的话，麻烦你发一份给我，谢谢了!!!
mailto:[e-mail]
[e-mail]
> 你可以导出到EXCEL表里再打，我就是那么做的。
> 这里我以前粘过一篇文章，那个文章里有一个源程序下载的联接，如果下载不过给我发EMAIL，我可以给你EMAIL过去。
> http://www.csdn.net/develop/read_article.asp?id=2226




这是我的部分原代码
Private Sub Print_Click()
Temp = 0
For i = 0 To List1.ListCount - 1
If (List1.Selected(i) = True) Then
FieldName(Temp) = List1.List(i)
Temp = Temp + 1
End If
Next i
FieldStr = FieldName(0)
If Temp > 0 Then
i = 0
For i = 1 To Temp - 1
FieldStr = FieldStr & "," & FieldName(i)
Next i
End If
Dim sql As String
RS.Close
On Error Resume Next
Connect.Execute ("drop table Print")
Connect.Execute ("select " & FieldStr & " into Print from query")‘该表有40个字段
RS.Open "select * from Print", Connect, adOpenStatic, adLockOptimistic’该表字段数为用户选择个数，<=40个
’*********************************************
‘下面需要将Print.dbf转换到可以打印的载体中进行打印
’*********************************************
Unload Form1
End Sub

• 打赏
• 举报

回复 赞

[xpwang]

谢谢了，已经搞定了

• 打赏
• 举报

回复 赞