如何打印数据库表

在数据表中点下按钮，自动填入数据，可以在代码里加入每张表格的标题和方框，这样下次使用只需要输入数据，就可以自动生成了。

Sub text()

Dim k As Integer

k = 0

For i = 3 To Range("A65536").End(xlUp).Row

If i Mod 2 = 1 Then

Sheets("打印").Cells(3 + k, 2) = Cells(i, 1)

Sheets("打印").Cells(5 + k, 3) = Cells(i, 2)

Sheets("打印").Cells(8 + k, 4) = Cells(i, 4)

Else

Sheets("打印").Cells(3 + k, 7) = Cells(i, 1)

Sheets("打印").Cells(5 + k, 8) = Cells(i, 2)

Sheets("打印").Cells(8 + k, 9) = Cells(i, 4)

k = k + 11

End If

Next

End Sub

输出到打印机的代码是：

printer.print "数据"

在启动窗口新建两个控件：数据库连接、记录集

然后

双击启动窗口

加入以下代码：

.子程序

__启动窗口_创建完毕

.局部变量

临时文本,

文本型

.局部变量

临时变量,

整数型

数据库连接1.连接access

(“数据库文件的完整路径名”,

“可以为空”)

记录集1.置连接

(数据库连接1)

记录集1.打开

(“select

user_ip

from

user_online”,

#sql语句,

)

记录集1.到首记录

()

.计次循环首

(记录集1.记录数量,

临时变量)

记录集1.读文本

(“user_ip”,

临时文本)

调试输出

(临时文本)

'

每次输出的临时文本就是你要的每个值

记录集1.到下一条

()

.计次循环尾

()

你好，如果你连接数据库的标签已制作好，单击打印。将d出的“打印”对话框的右侧切换到“数据库”选项界面。“记录”更选为“选择记录范围”。

鼠标拖选数据库表格中要打印的指定数据项目，例如6-12。然后打印就好了 。

具体可参考：

怎么在CODESOFT中选择打印数据库中的特定数据？（codesoftchina.com/faq/dayin-teding-shuju.html）

当然，你还可以搜索打印。具体，你可以去CODESOFT中文官网（codesoftchina.com）查看相关教程。

---