vsprint打印实例

vsprint打印实例(9)                     .TableCell(tcText, 3 + iCurrent, 12) = formatData2(Val(rst.Fields("priceshuijin") & ""), Val(rst.Fields("unit") & ""))
                    .TableCell(tcText, 3 + iCurrent, 13) = formatData2(Val(rst.Fields("priceshashijiacha") & ""), Val(rst.Fields("unit") & ""))
                    rst.MoveNext
                    iCurrent = iCurrent + 1
                Loop
                .EndTable
                '判断当前记录的位置是否为最后一条，如果不是最后一条，开始新的一页
                If iRow < Rows Then
                    .NewPage '开始新的一页
                End If
            Next iPage
'*************************************结束打印文档*************************************
            .EndDoc
        End With
    Else
        MsgBox "没有要打印的数据", VBOKOnly + vbInformation
    End If
    rst.Close