VB通用数据表格输出程序的设计

sp;
  注释：打印标题
  Printer.Print strDy(1)           
  注释：打印空行
  Printer.Font.Name = "楷体_GB2312"
注释：设置日期字体
  Printer.Font.Size = 16            
注释：设置日期字体大小
  Printer.Print strDy(2)            
注释：打印日期
  Printer.Font.Name = "宋体"     
    注释：设置表格字体
  Printer.Font.Size = 11         
    注释：设置表格字体大小
  Printer.Print strDy(3)         
    注释：以下打印表格内容
  Printer.Print strDy(4)
  For i = 6 To intDc
    If i <  intDc Then
      Printer.Print strDy(5)
      Printer.Print strDy(i)
    Else
      Printer.Print strDy(i)         注释：表尾
    End If
  Next
  Printer.EndDoc              
       注释：打印完成

---- 屏幕预览程序与打印机的输出相同，只要把 Printer对象换成PictureBox控件对象并使用相应的对象属性及方法，同时，在编程中还要处理分页、纸张、打印设置、字体、出错等等，限于篇幅，这里不一一介绍。在控件中实现了字体及其大小的设置、纸张的设置、自动分页、自动顺序号，任选列的汇总、选择打印、多份打印等功能，感兴趣的朋友可与本人联系。
---- 该控件在中文Windows 95、VB 5下运行通过。