vb(1) printer对象使用

原创

于 2015-04-21 20:59:15 发布 · 873 阅读

1 ·

CC 4.0 BY-SA版权

这段代码展示了如何使用VB的printer对象进行网格数据的分页打印。它首先计算每页能容纳的行数和列数，然后遍历网格进行分页打印，包括标题和表格边框。

Private Sub Print_网格()
Dim RowPage As Long, ColPage As Long, RowHeight As Double, ColWidth As Double, arrRow() As Long, arrCol() As Long, i As Long, j As Long
Const RowPageHeight As Double = 14571
Const ColPageWidth As Double = 10773
Const HeaderHeight As Double = 1134
RowPage = 0
ReDim arrRow(0) As Long
arrRow(0) = 1
RowHeight = msh.RowHeight(0)
For i = 1 To msh.Rows - 1
RowHeight = RowHeight + msh.RowHeight(i)
If RowPage = 0 Then
If RowHeight > (RowPageHeight - HeaderHeight) Then
RowPage = RowPage + 1
ReDim Preserve arrRow(UBound(arrRow) + 1) As Long
arrRow(UBound(arrRow)) = i
RowHeight = msh.RowHeight(i) + msh.RowHeight(0)
End If
Else
If RowHeight > RowPageHeight Then
RowPage = RowPage + 1
ReDim Preserve arrRow(U

最低0.47元/天解锁文章