文件名称:张志晨VB2010实例教程之窗体打印扩展
文件大小:1KB
文件格式:TXT
更新时间:2014-10-27 00:59:48
张志晨 VB2010 实例教程 窗体打印 扩展
张志晨VB2010实例教程之窗体打印2011-10-07 07:06VB升级到2010后,许多网友不会在窗体上打印了。 print不可用了 wirte无效 经过研究,我编写了一个函数: '窗体打印函数及扩展 Function formPrint(ByVal obj As Object, _ ByVal font As String, _ ByVal fontsize As Double, _ ByVal x As Double, _ ByVal y As Double, _ ByVal str As String) As Boolean '功能:实现在窗体打印,并扩展到任何可以打印字符的组件上 '参数使用方法:obj 窗体或者可打印字符的组件,对象 ' font 字体名称,字符型加双引号 ' fontsize 字号,数值型 ' x 横坐标,数值型 ' y 纵坐标,数值型 ' str 要打印的内容,字符型 '函数有返回值,打印成功返回true,失败返回false '编者:张志晨 ' 2011年10月7日