功能强大的免费VB打印控件（修订版）

编写帮助文件真是一件费时的事，而且没有成就感，因此编写了一部分就不想再写下去了，请见谅。帮助文件中的内容仅供参考，部分属性和函数的参数可能不同或没有。 以下简单说说VSFLEX控件打印所使用的函数VSFlexPrint Public Function VSFlexPrint(objtoprint As Object, Optional title As String = "", Optional tFontSize As Single = 12, Optional alignment As AlignmentConstants = vbLeftJustify, Optional ByVal Repfirstrow As Boolean = True, Optional ByVal autoresize As Boolean = False, Optional ByVal mulline As Boolean = True, Optional ByVal myborder As String = "1111", Optional ByVal mulpage As Boolean = False, Optional ByVal mulpageresize As Boolean = False, Optional ByVal colperpage As Integer = 1, Optional ByVal colspace As Single, Optional ByVal lefttitle As String = "", Optional ByVal middletitle As String = "", Optional ByVal righttitle As String = "", Optional ByVal bl As String = "", Optional ByVal bm As String = "", Optional ByVal br As String = "", Optional ByVal ignoreleftcols As Integer = 0, Optional ByVal autoformat As Boolean = False, Optional reptitle As Boolean = False) As Single 该函数可以以普通形式、分页和多栏格式打印VSFlex控件的内容 参数说明 objtoprint 要打印的VSFlex控件 title 表格标题，为空（注意不是空格）则不打印 tfontsize 表格标题字号（字体总是用黑体，不能改变的） alignment 表格的对齐方式（注意不是表格中的单元格对齐方式，单元格的对齐方式依赖您要打印的VSFlex控件中的设置） repfirstrow 对于标题字段（固定行fixedrows）是否每页都要重复打印 autoresize 是否自动根据纸张宽度进行缩放 mulline 内容是否允许换行打印还是只能单行输出 myborder 单元格边框用四位数字"1111"分别代表单元格的左、上、右、下四根线，某一位为0表示无线，如果为大于1的数字，则线宽些 mulpage 指示是否允许横向分页打印，注意，如果要横向分页打印，还必须将autoresize设置为false(即不自动缩放满足纸张宽度） mulpageresize 指在横向多页打印时，要不要根据纸张宽度自动放大（肯定不会缩小的） colperpage 每页要打印的栏数 colspace 栏间距，以VB的TWIPS为计量单位 lefttitle、middletitle、righttitle 表示表格上面的标题，分别为左、中、右 bl、bm、br 表示表格下面的标题，分别为左、中、右 ignoreleftcols 表示要忽略表格左边ignoreleftcols列，即表格左边ignoreleftcols不打印 autoformat 是否自动调整行高与列宽，不建议设置为true，因为表格自动调整列宽与行高很费时，而且由于调整起来比较复杂，结果可能不是很让人满意。 reptitle 标题行是否每页都要重复打印（包括表格上面的标题） MyprintMshflexgrid 打印MSHlfexGrid表格的内容，参数与上面的很相似，含义也相同 其他表格打印函数请参照本函数使用，建议您将其转换为MSHFlexGrid或VSFlex控件进行打印，因为其他表格打印函数都不能分栏和跨页打印的。 MyprintMshflexgridGZ1 以工资条形式打印MSHlfexGrid表格的内容，内容为0或空的内容也打印 MyprintMshflexgridGZ2 以工资条形式打印MSHlfexGrid表格的内容，内容为0或空的内容不打印 MyprintDatagrid 打印DataGrid控件的内容 MyprintListView 打印ListView控件的内容 联系邮箱: myyouping@hotmail.com myyouping@139.com