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

bsp;   Else
           stry = stry + rowlab * linw
         End If
      Next
      If p < page1 Then
          For p = 0 To page1 + 1
             strx = strx1
          Next
      End If
      strx = strx1
      For n = 2 To 4
          strx = strx + a(n)
      Next
      pp = pp + 1
      foot$ = "第" + CStr(pp) + "页"
      dd = prnt11(strx / 2, stry + 3 * linw, 10, foot$, 26)
      Printer.EndDoc
  End Sub

---- 以上程序在简体中文Windows98、VB5.0环境中调试通过。 　
  资料来源：孔祥军 苏悦娟