vb(1) printer对象使用

最新推荐文章于 2018-06-06 22:13:02 发布

csdn1284934570

最新推荐文章于 2018-06-06 22:13:02 发布

阅读量798

点赞数

分类专栏： vb

本文链接：https://blog.csdn.net/csdn1284934570/article/details/45176091

版权

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

摘要由CSDN通过智能技术生成

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 > RowPag