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

印在口岸联检部门中应用非常广泛。下述例子是用CmdPrnt1的Click事件代码实现了对文字串定位折行打印：

Private Sub CmdPrnt1_Click()
Dim str As String, str1 As String ,txt As String
Dim strx As Integer, stry As Integer,i As Integer
strx = 200
stry = 0
txt = Space(20) + "中国出入境检验检疫标准目录检索STEMS 2000"
Printer.FontName = "黑体"
dd = prnt11(strx, stry, 10, txt, 50)
stry = stry + rowlab * 240
Printer.Line (0, stry)-(9000, stry)
Printer.FontName = "宋体"
txt = "标准号：" + Space(2) + Trim(Text1) + Space(3) +
"发布日期：" + Trim(Text4) + Space(3) + "实施日期："
+ Trim(Text6) + Space(3) + "修定日期：" + Trim(Text5) ''+ Chr(13)
stry = stry + 240
dd = prnt11(strx, stry, 10, txt, 70)
stry = stry + rowlab * 240
txt = "代替标准："
dd = prnt11(strx, stry, 10, txt, 10)
dd = prnt11(strx + 1000, stry, 10, Trim(Text7), 60)
stry = stry + rowlab * 240
txt = "标准名称："
dd = prnt11(strx, stry, 10, txt, 10)
dd = prnt11(strx + 1000, stry, 10, Trim(Text4), 38)
stry = stry + rowlab * 240
txt = "英文名称："
dd = prnt11(strx, stry, 10, txt, 10)
dd = prnt11(strx + 1000, stry, 10, Text5, 72)
Printer.EndDoc
End Sub

---- 注： Prnt11函数原形：prnt11(X As Integer, Y As Integer, Font As Single, Txt As String, Val As Integer)，其各参数含义如下：

---- X、Y为待打印字符串左上角起始座标;

---- Font为字体大小;

---- Txt为待打印字符串;

---- Val为字符串打印折行长度。

---- 实例2：直接打印表格式窗体显示的多记录多字段，往往因某些字段的字节太多而造成纸张宽度不足。以下 CmdPrnt2的Click事件中的代码，实现了对上述MSFGrid1表格记录的打印：

Private Sub CmdPrnt2_Click()
Dim fnt As Single
Dim pp As Integer
Dim stry As Integer, strx As Integer
Dim stry1 As Integer,
strx1 As Integer, linw As Integer
Dim page1 As Integer, p As Integer,
gridrow As Integer, ii As Integer
p = 0
ii = 1  ''ii记录MSFGRID1表格同一记录内字段最大打印行
pp = 0 ''开始页码
ss$ = "中国出入境检验检疫标准目录检索STEMS 2000" '' 表头
Static a(4) As Integer
kan = 0
a(2) = 1680
a(3) = 2800
a(4) = 5300
page1 = 46 ''定义每页行数
  strx = 200
  strx1 = 200
  stry = 1400
  stry1 = 1400
  linw = 240 ''定义行宽
  fnt = 10 ''定义字体大小
  For i = 2 To 4
      kan = kan + a(i)
  Next
  gridrow = Datdatact1.Recordset.RecordCount
  If gridrow = 0 Then
     MsgBox "无满足条件记录打印！"
     Exit Sub
End If
  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 (strx - 20, stry - 30)-(10460, stry - 30)
  Printer.FontName = "宋体"
&nbs