我想用VB打印格式不同不规则的,含数据库记录的表格,谁有现成的相关的源码,我在这先谢谢了!
热心网友
VB下数据报表打印输出方法有多种，一是通过自己的设计和编程完成报表打印输出。二是通过MS OFFICE实现报表打印输出。三是应用数据报表设计器的报表打印输出。本人经常使用第一种方法，它具有根据需要灵活应用的特点，但需编写程序。下附代码，第一段代码定义基本变量，第二段代码定义打印函数，第三段代码是具体打印代码，含数据转换。第四段代码是窗体加载代码，具体连接数据库和打印代码根据你所涉及的数据要求进行修改。Option ExplicitPrivate n As IntegerPrivate m As IntegerPrivate zh_dm(10) As DoublePrivate dy_dm(3000, 10) As VariantPrivate zsl As IntegerPrivate y As IntegerPrivate x As IntegerPrivate i As IntegerPrivate k As IntegerPrivate p As IntegerPrivate pa As IntegerPrivate j As IntegerPrivate txt As StringPrivate fnt As IntegerPrivate dd As VariantPublic Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)Printer。CurrentX = xPrinter。CurrentY = yPrinter。FontSize = fntPrinter。Print txt0End FunctionPrivate 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 ' 打印完成。 ClsEnd SubPrivate 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。RefreshEnd Sub以上供参考。其它请参考西安交通大学出版社出版的“VISUAL BASIC 6。0 高级编程技巧-ADO数据访问篇“。
热心网友
报表！
热心网友
利用数据的读出和写入就可以搞定！！！
热心网友
很实际的问题,虽然我不能解,但我支持你多提这样的好问题!