基于VB的通用折行打印程序

p; For j = 1 To gridrow  ''打印gridrow条记录
       MSFGrid1.Row = j
       strx = strx1
       For i = 2 To 4 ''假设只打印2-3 列
         MSFGrid1.Col = i
         dd = prnt11(strx, stry, fnt,
MSFGrid1.Text, IIf(i = 3, 13, 55))
         If ii < rowlab Then
''ii记录同一记录内字段最大打印行
           ii = rowlab
         End If
         strx = strx + a(i)
       Next
       p = p + ii
       rowlab = ii
       ii = 1 ''重新初始化
       If p > page1 Then
           p = 0
           strx = strx1
           For n = 2 To 4
             strx = strx + a(n)
           Next
           pp = pp + 1
           stry = stry + rowlab * linw
           foot$ = "第" + CStr(pp) + "页"
           dd = prnt11(strx / 2, stry + 3 * linw, 10, foot$, 26)
           stry = stry1
           Printer.NewPage
           Printer.FontName = "黑体"
           dd = prnt11(3300, 700, fnt, ss$, 26)
           dd = prnt11(500, stry - 250, fnt, "标准号", 26)
           dd = prnt11(2690, stry - 250, fnt, "标准名称", 26)
           dd = prnt11(6690, stry - 250, fnt, "英文名称", 26)
           Printer.Line (-20, stry - 30)-(10460, stry - 30)
           ''打印起始线
           Printer.FontName = "宋体"
           strx = strx1
     &n