数据库打印

1. 如何打印数据库表

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

2. 怎么把数据库连接中的ip地址打印出来

在电脑桌面，点击菜单按钮。然后点击设置选项。然后点击设备进入。然后点击打印机和扫描仪选项。然后点击管理按钮。然后点击打印机属性按钮。然后点击端口选项。然后选择一个打印机端口，点击配置端口按钮。最后输入ip地址，就可以在打印机上打印IP地址了。