网页功能: 加入收藏 设为首页 网站搜索  
基于VB的通用折行打印程序
发表日期:2006-08-10作者:[转贴] 出处:  

---- 几乎所有数据库应用软件,都需要打印单证和报表。常见的方法是利用VB的Crystal Reports(水晶报表)方式,通过TextBox等数据绑定控件,调用Print方法直接输出。虽然Crystal Report这一个功能强大、样式丰富且无编程方式的报表编制程序能适应大部分单证、报表打印的需要,但是Crystal Reports引擎是一个动态链接库,需许多文件支持和调用更多系统资源,大大增加系统负担。

---- 另一种解决办法是通过Printer对象的Print方法,直接打印字符串。这虽然减少了系统资源的开销,但它不能直接用于打印复杂的单证和报表。本文通过两个实例,阐述一个通用折行打印程序的编程和在单证及报表的应用。

---- 二. 编程实现及实例

---- 为便于阐述的方便,我们先建立一个Access数据库Standards.mdb,其内SN表由以下几个字段组成:

---- 标准号(文本,17)

---- 标准名称(文本,255)

---- 英文名称(文本,255)

---- 实施日期(日期,8)

---- 修定日期(日期,8)

---- 发布日期(日期,8)

---- 代替标准(文本,50)

---- 通用折行打印程序编制操作如下:

---- 1.在VB5.0编程环境中,新建一个工程Project1;

---- 2. 在Project1中添加Moduel,在Moduel模块中定义一个记录最大折行数的公用变量Rowlab和Function函数(以下程序都经过实际运行测试,可以原样复制使用);

Public rowlab As Integer   
'定义一个公用变量
Function prnt11(X As Integer, Y As
Integer,Font As Single, Txt As String, Val As Integer)
Dim str As String, str1 As String,
str2 As String ,i As Integer
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.FontBold = False
Printer.FontSize = font
str = txt
str2 = str
i = 0
rowlab = 0
If Len(Trim(str)) = 0 Then
   rowlab = 1  '待打印字符串为空的标志
Else
  Do While Len(str) > 0
   Printer.CurrentX = X
   Printer.CurrentY = Y + rowlab * 240
   rowlab = rowlab + 1
   If Len(str) >= val Then
     str1 = Mid(str, 1, val)
     Printer.Print str1
     i = i + 1
     str = Mid(str2, i * val + 1)
   Else
    Printer.Print str
    Exit Do
   End If
  Loop
End If
End Function

---- 3. 在Project1中新建一个窗体Form1,窗体上添加一个Data控件Data1,一个MSFlexGrid控件MSFGrid1,7个TextBox和两个命令按钮CmdPrnt1、CmdPrnt2。设置Data控件的属性:

.. DatabaseName="Standards.mdb"
..RecordSourse="SN"
  MSFGrid1属性:
    .DataSource="Data1"
  Text1属性:
    .DataSource="Data1"
    .DataField="标准号"
  Text2~Text7类同。

---- CmdPrnt1、CmdPrnt2分别为打印单条记录和多条记录的按钮。

---- 实例1:文字串定位折行打印在口岸联检部门中应用非常广泛。下述例子是用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 = "宋体"
  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
     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环境中调试通过。

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 基于VB的通用折行打印程序
本类热点文章
  在VB应用程序中调用Excel2000
  在VB中使用水晶报表的一种简易编程方法
  BOM表查询的VB实现方法
  如何將Excel的文件导入Access文件
  把DataGrid的数据快速写入EXCEL
  把DataGrid的数据快速写入EXCEL
  DataGrid 控件的使用
  ADO三大对象的属性、方法、事件及常数
  VB中DataCombo和DataList 控件的使用
  Visual Basic 导出到 Excel 提速之法
  Visual Basic 导出到 Excel 提速之法
  VB中MSHFlexGrid控件的应用
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.0037