主题：如何设置vb 打印 数据库内容？
xinying2005
[专家分：0] 发布于 2008-07-05 11:25:00
我现在需要在vb 环境下 按下 打印 按钮后，
打印 我当前调用的数据库中的内容，但是我现在还不太清楚是如何和打印机连接起来，
也就是 当我按下 打印 按钮后 ：：
打开 我当前数据库中需要打印的内容，出来一个 打印的 对话框，可以选择 打印机。
按下此对话框上的 确定 后 即可打印。
我现在可以 用
SHELL 语句打开 数据库，但是还不能 打开数据库中我的那个具体的数据库 文件。
也不清楚 如何才能在打开数据库文件后 如何弹出 打印的对话框（原来我们可以在 文件/打印中打开 打印的对话框，我现在想用程序来实现）
敬请指教
回复列表 （共9个回复）
沙发
shifta [专家分：380] 发布于 2008-07-05 15:46:00
要想调用打印对话框，应该使用CommonDialog控件，由于它不属于VB的基本控件，因此需要在“工程”菜单“部件”管理中引用“Microsoft Common Dialog Control 6.0”。CommonDialog控件调用打印机窗口的代码如下：CommonDialog1.ShowPrinter。
此外，要实现数据库打印，可以利用VB自带的DataReport设计器，添加方法为：
1、首先在“工程”菜单“部件”管理界面，“设计器”选项卡中勾上“DataReport”项；
2、在“工程”菜单上，单击“添加 Data Report”向工程中添加一个设计器。
然后就可以利用它与数据库相连来实现数据库打印了。
具体的用法请参考MSDN中有关DataReport的内容。
另外一种方法就是使用第三方控件：Tidestone Formula One 6.0 Library(TTF16.OCX)，这个控件可以生成类似Excel的表格，可以实现打印、预览、导出等功能。
板凳
jianghongbo1 [专家分：410] 发布于 2008-07-07 08:19:00
用PRINTER对象，把数据库内容装入数组。
3 楼
anghost2008 [专家分：1180] 发布于 2008-07-07 09:56:00
打印数据库文件最好的方法是将数据库中的文件下载下来， 然后在使用打印功能， 我作过打印数据库中的tif文件， 具体的打印根据文件类型的不同也不同， 我这边使用api打印函数的时候测试是可以的， 但是生成exe以后就不能进行打印了， 所以打印部分最好通过引用不同的程序去打印。
4 楼
xinying2005 [专家分：0] 发布于 2008-07-07 14:11:00
Tidestone Formula One 6.0 Library(TTF16.OCX)
r、如何使用？ 请详细介绍
5 楼
xinying2005 [专家分：0] 发布于 2008-07-07 14:19:00
我现在用的是 当 按下 “打印”按钮后
用 shell 语句 调出 当前 需要打印的 文档
然后 commondialog1.showprinter
运行时，当按下 打印 按钮后 ，首先弹出打印对话框，要打印的数据库文档在对话框的下面，但是 要打印的数据库文档也没有打开，打开的只是数据库的那个文件，我在这个数据库文件中 定义的 “设定值”文档 并没有被打开。
我想咨询一下 如何 才能 在打开当前文档（设定值 文档）的背景下，打印当前文档 对话框也 弹出？
还有 如何才能出现 打印预览？
6 楼
jianghongbo1 [专家分：410] 发布于 2008-07-08 08:15:00
datareport有打印预览功能，使用printer对象，需建一个窗体，建一个文本框，text1.print 内容，显示在文本框内。
7 楼
xinying2005 [专家分：0] 发布于 2008-07-08 16:16:00
还是 没有最终 解决我的问题啊
高手啊 帮帮忙 谢谢
8 楼
shifta [专家分：380] 发布于 2008-07-08 19:47:00
楼主为什么要用shell语句调出当前需要打印的文档来进行打印呢？
如果是要打印数据库里面的数据的话，你可以先将数据查询出来（比如用F1Book控件生成数据报表），显示在程序的界面上，然后再进行打印和预览。
9 楼
xinying2005 [专家分：0] 发布于 2008-07-08 21:52:00
F1Book控件
在哪 呢 我没找到
我来回复
您所在位置：