用Printer自制的分栏表格打印,希望大家帮小弟我优化一下

用Printer自制的分栏表格打印,希望大家帮我优化一下!
'************************************************************************* '功能:用Printer自制的表格的分栏打印
'调用:MyPrint(12,   2700)
'参数:Nz:脊背的总个数,pw:定义某个刻度下的表格宽度
'*************************************************************************
Sub   MyPrint(Nz   As   Integer,   pw   As   Integer)
        On   Error   Resume   Next
        Dim   MyStep,   Steps,   ps,   h,   np   As   Integer
        Printer.PaperSize   =   vbPRPSA4   'vbPRPSA4=210mm*297mm
        Printer.Orientation   =   1   '         定义纸张为纵向打印1纵,2横
        BackColor   =   QBColor(7)
        Printer.Width   =   11500   'A4纸56.7*210mm
        Printer.Height   =   15800   '定义打印纸高度56.7*297mm
        Steps   =   pw   +   100   '定义每个表格循环的步长
        np   =   Round(11500   /   Steps)       '计算每页纸可以打印脊背的个数
        ph   =   15800   '定义表格高度
        h   =   ph   /   6   '定义5个内表格的高度
        np   =   np   -   1
        k   =   0   '统计循环个数
       
        '计算分页的数量
        If   Nz   Mod   np   =   0   Then
                ps   =   Round(Nz   /   np)
        Else
                ps   =   Round(Nz   /   np)   +   1
        End   If
 
        For   j   =   1   To   ps
              '开始画大表格
             
              For   i   =   0   To   np   Step   1
                        k   =   k   +   1
                        MyStep   =   Steps   *   i
                        'V画第一条主横线
                        Printer.Line   (MyStep,   0)-(MyStep   +   pw,   0)
                       
                        '在第1条主横线和第2条割线之间打印档号
                        Printer.CurrentX   =   Steps   *   i   +   100
                        Printer.CurrentY   =   300
                        Printer.FontName   =   "黑体 "
                        Printer.FontSize   =   12