- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
打印控件
1,功能介绍:
XML Print Control是一个独立的,但同时又具有一定针对性的报表打印控件,它根据指定的XML格式文件(或字符串)对指定的XML数据文件(或字符串)进行格式化输出,本身基本不做任何数据的处理,不涉及任何业务逻辑,也不与任何数据库进行交互。也就是说,一旦你对控件指定了源格式XML和数据XML,那么通过控件得到的打印预览输出和打印输出也就唯一确定了。从这一点来看,本控件类似于IE、Mozilla等浏览器对纯HTML文本进行的解释。
XML Print Control的格式化输出依赖与上述的两个XML文件(或字符串,下同,以后不再注明),任何报表或者其他类似文件,如果希望使用本控件来打印的话,都必须先将格式和数据分别组织成满足本控件预定义格式的XML文件。
XML Print Control以ocx的形式封装,是一个进程内的COM Server,并支持嵌入到WEB中使用。
2,使用环境:
支持870以上开发环境
3,使用说明:
1,在VB中引用打印控件
在VB中点击主菜单中的“工程-部件”或者直接按Ctrl+T热键,随后出现的“部件”对话框中选中“PrintControl ActiveX Control module”,然后点击“确定”,左侧的工具条中将出现该控件的图标,如下图所示:
如下图:
需要注意的是,基于特定的理由,本控件取消了“运行时不显示”的特性,因此,为了防止运行时显示出控件本身的窗口,应该在控件的属性窗口中设定Visible为FALSE,如图:
2,OCX文件的方法函数图例如下:
(vs2005的对象浏览器添加PrintControl.ocx即可)
4,打印控件的主要功能:
5,打印控件方法介绍
SetDataStyleXML
PageSetup
PrintPreview
DoPrint?
ExportToFileEx
PrintEx
AboutBox?
ExportToAttached
ExportToFile
SetOwner
TriggerEvent
5.1 SetDataStyleXML
为控件绑定格式和数据XML文件(或字符串)。本方法是使用其他方法的先决条件(AboutBox方法除外)。
语法:?
long SetDataStyleXML(const VARIANT FAR varDataXML,
BOOL bDataIsFile,
const VARIANT FAR varStyleXML,
BOOL bStyleIsFile,
const VARIANT FAR varModuleID)
参数:?
varDataXML
字符串
指明数据XML,含义由bDataIsFile决定。
bDataIsFile
布尔值
如果为True,表示varDataXML为数据XML文件的绝对路径或者相对路径;
如果为False,表示varDataXML为数据XML字符串本身。
varStyleXML
字符串指明格式XML,含义由bStyleIsFile决定。
bStyleIsFile
布尔值
如果为True,表示varStyleXML为格式XML文件的绝对路径或者相对路径;
如果为False,表示varStyleXML为格式XML字符串本身。
varModuleID
字符串
模版ID。
本参数可由调用者自由定义,用做开始打印时的打印任务名,可以为空,但
建议使用有意义的字符串标识打印任务。?
返回值:?
长整形,0表示成功,非0表示错误
调用控件的SetDataStyleXML方法的示例代码如下:
Option Explicit
Private Sub btnBind_Click()
Dim lRet As Long
Dim sData As String
Dim sStyle As String
Dim sModuleId As String
sData = txtData.Text //数据XML
sStyle = txtStyle.Text //格式XML
sModuleId = txtModuleID.Text
lRet = printer.SetDataStyleXML(sData, True, sStyle, True, sModuleId)
MsgBox lRet
End Sub
如果使用XML文件作为输入(上例中),那么sData和sStyle为文件的路径(绝对路径和相对路径均可),如果以XML字符串作为输入,那么sData和sSt
文档评论(0)