整理一下关于分栏及分页打印.

刚刚浏览了帖子,又看到有问这个问题的,所以发一个之前我写的分栏打印的代码供参考,希望对以后出现此类问题有所帮助:
(窗体上两个MSHFlexGrid,左右各一)
Option Explicit
Private RsPrint As ADODB.Recordset
Private CurPos As Long '游标当前记录的位置
Private SumPagesMoney As Currency
Private SumPagesCount As LongPublic Function DoModal(vRst As ADODB.Recordset)'记录源自己写好,传进来
    Set RsPrint = vRst
    frmPrint.Show
End FunctionPrivate Sub Form_Load()
    With frmPrint
        .Appearance = 0           
        .AutoRedraw = 1           
        .BackColor = &H80000005   '背景颜色：白色
        .BorderStyle = 0          
        .Height = 15000           '设置页面的大小(纸的大小)
        .Width = 11760            
        .Top = 0
        .Left = 0
        .ClipControls = 0         'False
        .FillStyle = 0            'Solid
        .Caption = "paper"
    End With
    Label5.Caption = Trim(custdaily.Text1.Text)
    Label10.Caption = Trim(custdaily.Text3.Text)
    
    Call InitMSFG(MSHFlexGrid1)
    Call InitMSFG(MSHFlexGrid2)
    
    RsPrint.PageSize = MSHFlexGrid1.Rows - 1 '设置记录集中记录页里记录条数,也即要显示在每栏上的记录条数
    CurPos = 0
    SumPagesMoney = 0
    SumPagesCount = 0
    GoPrint '打印...
End SubPrivate Sub GoPrint()
    Dim rc As Integer, cc As Integer     '一页一栏的行数rc，列数cc
    Dim prc As Integer        '记录集内记录的总页数
    Dim rctotal As Integer    '总行数
    Dim i As Integer
    Me.Height = 15000
'    Printer.ScaleMode = vbMillimeters
    
    If RsPrint.RecordCount > 0 Then
        prc = RsPrint.PageCount '
        rctotal = RsPrint.RecordCount
        
        RsPrint.MoveLast: RsPrint.MoveFirst
        For i = 1 To RsPrint.RecordCount
            SumPagesMoney = SumPagesMoney + Val(RsPrint.Fields(1).Value)
'            SumPagesCount = SumPagesCount + Val(RsPrint.Fields(2).Value)
            RsPrint.MoveNext
        Next
        
        RsPrint.MoveLast: RsPrint.MoveFirst
        For i = 1 To prc Step 2
            Call InitMSFG(MSHFlexGrid1)
            Call InputMSFG(i, RsPrint, MSHFlexGrid1)     '第一栏内容
            If i + 1 <= RsPrint.PageCount Then
                Call InitMSFG(MSHFlexGrid2)
                Call InputMSFG(i + 1, RsPrint, MSHFlexGrid2)    '第二栏内容
            Else
                MSHFlexGrid2.Visible = False
                MSHFlexGrid2.Clear
            End If
            
            '页脚处理
            Call LoacalSum(rctotal, i \ 2 + 1, IIf(prc Mod 2 = 0, prc / 2, prc \ 2 + 1))
            
'            MsgBox ("打印第" & Fix(I / 2) + 1 & "页")
            Me.PrintForm '输出到系统缺省打印机
        Next
    Else
        MsgBox "查无此记录"
    End If
    
'    RsPrint.Close '关闭记录
'    Set RsPrint = Nothing '释放缓冲区
End Sub
  
Private Sub InitMSFG(vMSF As MSHFlexGrid)
    With vMSF
        .Clear
        .Top = 780
            
        .Rows = 51                   '设置一栏容纳的行数(包括列表头)
        .Cols = 4
        .FixedCols = 0
        .FixedRows = 0
        .BackColorFixed = 255
        .BackColorBkg = -2147483639
        .GridColor = 8454016
        .GridColorFixed = 8454143
        .Gridlines = 1
        .MergeCells = 4
        .BorderStyle = 1              '设置边框：有边框
        .Appearance = 0
        
        .ColWidth(0) = 600
        .ColWidth(1) = 2600
        .ColWidth(2) = 1500
        .ColWidth(3) = 800
        .TextMatrix(0, 0) = "序号"
        .TextMatrix(0, 1) = "客户名称"
        .TextMatrix(0, 2) = "总计金额"
        .TextMatrix(0, 3) = "备注"
        
        .Width = 5500                '设置宽度容纳一栏所有的列。
    End With
    MSHFlexGrid2.Left = MSHFlexGrid1.Left + MSHFlexGrid1.Width + 100
End Sub'读取记录集中(vMSFG行数)的多条记录
Private Sub InputMSFG(vIntPage As Integer, rstData As ADODB.Recordset, vMSFG As MSHFlexGrid)
    Dim i As Long, j As Long
    Dim mMoney As Currency, mCount As Long
    Dim mRowHeight As Integer
    mRowHeight = vMSFG.RowHeight(0)
        
'    rstData.AbsolutePosition = (vIntPage - 1) * rstData.PageSize + 1'仅向前游标或动态游标无用
    For i = 1 To vMSFG.Rows - 1
        If CurPos < RsPrint.RecordCount Then
            CurPos = CurPos + 1
            With vMSFG
                .Row = i
                .TextMatrix(i, 0) = CurPos
                
                .TextMatrix(i, 1) = rstData.Fields(0).Value & ""
                .TextMatrix(i, 2) = Format(rstData.Fields(1).Value & "", "0.00")
            End With
            mMoney = mMoney + Val(rstData.Fields(1).Value)
'            mCount = mCount + Val(rstData.Fields(2).Value)
            mRowHeight = mRowHeight + vMSFG.RowHeight(i)
            rstData.MoveNext
        End If
    Next
    
    With vMSFG
        If .Row < .Rows - 1 Then '若最后一页的记录不够填充整张表
            .Rows = .Row + 1
        End If        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = "小计"
        .TextMatrix(.Rows - 1, 1) = ""
        .TextMatrix(.Rows - 1, 2) = Format(mMoney, "0.00")
        .TextMatrix(.Rows - 1, 3) = ""
        .Height = mRowHeight + .RowHeight(.Rows - 1) '再设置一下表格显示高度
    End With
End SubPrivate Sub LoacalSum(ByVal vIntI As Integer, ByVal vIntJ As Integer, ByVal vIntK As Integer)
    '下置一横线,写总计之类
    Label8.Caption = "(" & "金额" & ")" & Format(Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Rows - 1, 2)) + Val(MSHFlexGrid2.TextMatrix(MSHFlexGrid2.Rows - 1, 2)), "0.00")
    Label3.Caption = "(" & "金额" & ")" & Format(SumPagesMoney, "0.00")
    Label6.Caption = "共" & vIntI & "条," & vIntJ & "/" & vIntK & "页"
    
    Line1.x1 = MSHFlexGrid1.Left
    Line1.X2 = MSHFlexGrid1.Left + MSHFlexGrid1.Width + 100 + MSHFlexGrid2.Width
    Line1.y1 = MSHFlexGrid1.Top + MSHFlexGrid1.Height + 300
    Line1.Y2 = Line1.y1
    
    Label7.Left = MSHFlexGrid1.Left: Label8.Left = Label7.Left + Label7.Width + 100
    Label7.Top = Line1.y1 + 100: Label8.Top = Label7.Top
    Label2.Left = Label7.Left: Label3.Left = Label8.Left
    Label2.Top = Label7.Top + Label7.Height + 100: Label3.Top = Label2.Top
    
    Label6.Left = Me.ScaleWidth - Label6.Width - 200
    Label6.Top = Me.ScaleHeight - Label6.Height - 200
    
    Label10.Left = Me.ScaleWidth - Label10.Width - 600
    Label9.Left = Label10.Left - Label9.Width - 50
    Label5.Left = Label9.Left - Label5.Width - 50
    Label4.Left = Label5.Left - Label4.Width - 50
End Sub