VB下数据报表打印输出方法有多种，一是通过自己的设计和编程完成报表打印输出。二是通过MS OFFICE实现报表打印输出。三是应用数据报表设计器的报表打印输出。本人经常使用第一种方法，它具有根据需要灵活应用的特点，但需编写程序。下附代码，第一段代码定义基本变量，第二段代码定义打印函数，第三段代码是具体打印代码，含数据转换。
第四段代码是窗体加载代码，具体连接数据库和打印代码根据你所涉及的数据要求进行修改。 Option Explicit Private n As Integer Private m As Integer Private zh_dm(10) As Double Private dy_dm(3000, 10) As Variant Private zsl As Integer Private y As Integer Private x As Integer Private i As Integer Private k As Integer Private p As Integer Private pa As Integer Private j As Integer Private txt As String Private fnt As Integer Private dd As Variant Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant) Printer。
CurrentX = x Printer。CurrentY = y Printer。FontSize = fnt Printer。Print txt0 End Function Private Sub cmdPrint_Click() Adodc1。
Recordset。MoveFirst For i = 0 To zsl - 1 For j = 0 To 7 dy_dm(i, j) = Adodc1。Recordset(j) Next j Adodc1。
Recordset。MoveNext Next i '确定页数 k = Int(zsl / 80)'80为每页行数 If k - zsl / 80 80 Then Printer。
Line (500, 695 + 180 * 80)-(10000, 695 + 180 * 80) Printer。NewPage End If Next p Printer。EndDoc ' 打印完成。
Cls End Sub Private Sub Form_Load() Adodc1。ConnectionString = "Provider=MSDASQL。1;Persist Security Info=False;Data Source=jwl_dbf" Adodc1。
RecordSource = "select cs。js_dm,cs。备件代码,cs。备件名称,cs。备件规格,cs。进口计算机号,cs。最低库存量,sl。结存数量,sl。结存金额,sl。结存单价,sl。类别代码 from JWCK_BM as cs,jwl_jiec as sl" & _ " where cs。
备件代码 = sl。备件代码" & " and cs。备件代码>" & "''" & " order by sl。类别代码,sl。备件代码" Adodc1。Refresh DataGrid1。Refresh zsl = Adodc1。
Recordset。RecordCount Adodc3。ConnectionString = "Provider=MSDASQL。1;Persist Security Info=False;Data Source=jwl_dbf" Adodc3。
RecordSource = "select sum(结存金额) as hj from jwl_jiec" Adodc3。Refresh End Sub 以上供参考。其它请参考西安交通大学出版社出版的“VISUAL BASIC 6。
0 高级编程技巧-ADO数据访问篇“ 。
答：字间距与字号有关系。 全选表格后，点字号，选择理想的字号。 可以一次将全部更正为同一个字号了。 字号相同了，字的间距也就相同了。 祝您成功！详情>>
答：对于中小型商业企业，服务器数量比较少，有一定的数据集中管理要求，且没有大型数据库需求的可采用NAS方案详情>>
问：电脑硬件电脑硬件电脑属性中的硬件选项卡的其他设备出现黄色图标，其中“总线”、pc...
答：可能是你的内置MODEM可能出现了问题，你可以重新安装驱动程序试试详情>>
