各位,怎样才能在最快最省事的把一个数据库(DBF格式)打印出来???

xpwang 2001-01-17 08:45:00
我用的是ADODB连接的数据库,因为动态查询的结果需要打印,大家帮帮偶吧!!!
...全文
153 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xpwang 2001-01-19
  • 打赏
  • 举报
回复
谢谢了,已经搞定了
xpwang 2001-01-18
  • 打赏
  • 举报
回复
Isee_you@263.net <Isee_you@263.net>

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

我的数据表最多时有字段40个,我在打印是让用户选择需要的字段打印,当用户选择完后便在基础表(有40个字段的表)上
形成一张打印表,而这张打印表需要转换到能够打印的控件里,如果你有原代码的话,麻烦你发一份给我,谢谢了!!!
mailto:xpwang7@163.net
xpwang@chinese.com
> 你可以导出到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
michaelpeng7799 2001-01-17
  • 打赏
  • 举报
回复
你可以导出到EXCEL表里再打,我就是那么做的。
这里我以前粘过一篇文章,那个文章里有一个源程序下载的联接,如果下载不过给我发EMAIL,我可以给你EMAIL过去。
http://www.csdn.net/develop/read_article.asp?id=2226
无言无忌 2001-01-17
  • 打赏
  • 举报
回复
用DataReport可以,也挺快的。

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧