登录社区:用户名: 密码: 忘记密码 网页功能:加入收藏 设为首页 网站搜索  

文档

下载

图书

论坛

安全

源码

硬件

游戏
首页 | 信息 | 空间 | VB | VC | Delphi | Java | Flash | 补丁 | 控件 | 安全 | 黑客 | 电子书 | 笔记本 | 手机 | MP3 | 杀毒 | QQ群 | 产品库 | 分类信息 | 编程网站
  立华软件园 - Visual Basic 专区 - 技术文档 - 数据报表 技术文章 | VB源代码 | 电子图书 | VB网站 | 相关下载 | 在线论坛 | QQ群组 | 搜索   
 VB技术文档
  · 窗体界面
  · 系统控制
  · VB.Net
  · 多媒体
  · 网络编程
  · API函数
  · 游戏编程
  · 数据报表
  · 其他文档
 VB源代码
  · 窗体界面
  · 文件目录
  · 多媒体
  · 网络编程
  · 系统API
  · 数据报表
  · 游戏编程
  · VBA办公
  · 其他代码
 VB论坛
  · Visual Basic 讨论区
  · VB.Net 讨论区
  · VB数据库开发讨论区
  · VB系统API讨论区
 其他VB资源
  · VB下载资源
  · VB电子图书
  · VB QQ群组讨论区
  · VB 其他网站资源




从Recordset中打印列表
发表日期:2006-08-10作者:[转贴] 出处:  

VisualBasic所附带的报表生成器-CrystalReports,功能强大,能完成大部分报表的制作。但在某些情况下,用CrystalReports却很难作出报表来。例如,根据用户输入不同的过滤(Filter)条件,将产生不同的虚拟表,此时用CrystalReports制作报表就勉为其难了,在这种情况下,可使用VB提供的Printer对象来予以解决。

下面是本人在给单位开发一个产品销售情况统计分析软件的过程中,使用Printer对象从Recordset对象的虚拟表中打印数据的通用代码:

Sub PrintRecordset(recRecordset as Recordset) 
    
Dim LeftMargin As Integer 
    
Dim HeadTopPosition As Integer 
    
Dim FieldNum As Integer 
    
Dim PageCounter As Integer 
    
Dim MyRecordset As Recordset 
    
Const FooterTopPosition=24 

    
Set MyRecordset=recRecordset 
    PageCounter 
= 1 
    
'设置Printer对象坐标的度量单位为厘米
    Printer.ScaleMode = vbCentimeters 

    LeftMargin 
= 1.5 
    HeadTopPosition 
= 2 

    
'定义打印页左上角的X坐标和Y坐标,通过改变ScaleLeft和ScaleTop的值,可改变打印页的左边距和上边距

    Printer.ScaleLeft 
= -LeftMargin 
    Printer.ScaleTop 
= -HeadTopPosition 

    Printer.Font.Name 
= "Times New Roman" 
    Printer.Font.Size 
= 12 

    Printer.Print 
"Lovesoft Corp." 
    Printer.Print 
"" 

    
If MyRecordset.EOF And MyRecordset.BOF Then 
    
MsgBox "No Record At Presend!"
    vbCritical 
+ vbOKOnly, "Print Error" 
    
Exit Sub 
    
End If 
    MyRecordset.MoveFirst 

    
Do Until Printer.CurrentY > FooterTopPosition 

    
'Print the fields of the recordset in sequence 
    For FieldNum = 0 To MyRecordset.Fields.Count - 1 
    Printer.Print MyRecordset.Fields 
    (FieldNum).Name 
& _ 
    
"" & _ 
    MyRecordset.Fields(FieldNum).Value 
    
If Printer.CurrentY > FooterTopPosition Then 
    Printer.CurrentX 
= 8 
    Printer.Print 
"Page: " & PageCounter 
    
'创建多页文档
    Printer.NewPage 
    PageCounter 
= PageCounter + 1 
    
End If 
    
Next FieldNum 

    MyRecordset.MoveNext 
    
If MyRecordset.EOF Then Exit Do 
    
'在记录之间空一行
    Printer.Print "" 
    
Loop 

    
'Print the Page number as a footer 
    Printer.CurrentX = 8 
    Printer.CurrentY 
= FooterTopPosition 
    Printer.Print 
"Page: " & PageCounter 
    
'将输出送到打印机 
    Printer.EndDoc 
End Sub 

调用上述PrintRecordset通用过程相当方便,下面是通过cmdPrint按钮的Click事件进行调用的一个实例:

Private Sub cmdPrint_Click() 
 PrintRecordset Data1.Recordset 
End Sub
我来说两句】 【发送给朋友】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 从Recordset中打印列表

 ■ [欢迎对本文发表评论]
用  户:  匿名发出:
您要为您所发的言论的后果负责,故请各位遵纪守法并注意语言文明。

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