【示例拓展】Word导出成一式两份
时 间:2012-11-10 21:00:34
作 者:天外流星 ID:28406 城市:江门
摘 要:根据示例,完成一式两份或多份导出的想法。
正 文:
看完【access源码示例】导入导出系列——Word数据导入导出这个示例后,一直想能不能导出到多表格,这样就可以一式两份或多份了,并且可以有所针对的导出所需数据并形成相应报表了。
经过一段时间的捉摸,今天总算领悟,只需将原该示例的原代码作如下修改就可以了。
Set objTable = objDoc.Tables(2)'向Word中对应表格单元格写入数据
With objTable
.Cell(1, 2).Range = Nz(Me.案由)
.Cell(2, 2).Range = Nz(Me.当事人违法事实)
.Cell(3, 2).Range = Nz(Me.立案依据)
.Cell(4, 2).Tables(1).Cell(1, 1).Range = Nz(Me.承办人意见)
.Cell(4, 2).Tables(1).Cell(2, 2).Range = Nz(Me.承办人签名)
.Cell(4, 2).Tables(1).Cell(2, 3).Range = Format(Nz(Me.承办人签名日期), "yyyy年mm月dd日")
.Cell(5, 2).Tables(1).Cell(1, 1).Range = Nz(Me.负责人意见)
.Cell(5, 2).Tables(1).Cell(2, 2).Range = Nz(Me.负责人签名)
.Cell(5, 2).Tables(1).Cell(2, 3).Range = Format(Nz(Me.负责人签名日期), "yyyy年mm月dd日")
.Cell(6, 2).Range = Nz(Me.备注)
End With
不过得将模板再原样复制一个,这就是所谓的objDoc.Tables(2)了,如果想打3份应该是可以依此类推了。
这样实现多打就可以打印同样内容不同存根的报表了。希望这篇文章对初学者能有所启发。
附 件:
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)