网页功能: 加入收藏 设为首页 网站搜索  
从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中打印列表
本类热点文章
  在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.00377