|
vsprint打印实例(1)
Option EXPlicit Public Function formatData2(ByVal data1 As Double, ByVal data2 As Double) As String
Dim dt1, dt2 As Double
dt1 = data1
dt2 = data2
If dt1 = 0 Or dt1 = 0# Or dt2 = 0 Or dt2 = 0# Then
formatData2 = "0.00"
Else
formatData2 = Format(Round(dt1 / dt2, 2), "0.00")
End If
End Function Public Sub print_jian_anhuizong(ByRef printCtl As VSPrinter, ByVal strTable As String, ByVal strTitle)
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim str_table As String
Dim str_title As String
Dim strSql As String
Dim iCurrent As Integer
Dim cols As Integer '页面表格的列数
Dim iCurrenrows As Integer '页面表格当前显示的总行数
Dim Rows As Long '总行数
Dim Trows As Long '页面表格总行数
Dim pages As Integer '总页数
Dim iPage As Integer '当前页面
Dim iLastrows As Integer '整页显示后剩余的行数
Dim iRow As Long '当前行的位置
On Error GoTo err1
str_table = strTable
str_title = strTitle
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strConnection & ";Persist Security Info=False"
con.Open
strSql = "select nn,name,unit,pricezhijiegongcheng,pricezhijie,pricerengong,pricecailiao,pricejixie," & _
"priceqitazhijie,pricexianchang,pricejianjie,pricejihualirun,priceshuijin,priceshashijiacha ,price1 from " & str_table & " order by nn"
|
