用 printer 对象打印表格
用 msflexgrid 控件显示的表格, 要将它打印出来, 最简单的方法是用 printform 方法,
然而这只适合于数据正好能被屏幕显示的,即数据量少的,而且这种打印效果很差。而用
printer 对象进行打印编程, 虽然麻烦点, 但效果却是相当不错的, 你可以自定义打印格式,
打印页数,表格的粗细,字体大小等。实际上用 printer 对象进行打印编程是比较简单的。
下面我就用一实例来说明 :
打印的内容是一张数据表,这里就只有两列数据,包括标题,副标题。 ( 用 A4 纸打印 )
假设数据处在 C_DataArray() ,和 R_DataArray() 中 C_Name与 R_Name分别为两数据项
的字段名
Public Sub Printtable()
‘初始化
Dimprinter1 as Printer
Dim pageheader
Dim pagefooter
Dim pageleft
Dim pageright
Dim usewidth
Dim useheight
Dim i , j , k As Integer
Dim word As String
Dim startx