| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- word报表的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143069) |
| -- 作者：newsun2k -- 发布时间：2019/11/12 20:40:00 -- word报表的问题 我想后台自动生成当前表全部数据的报表。 Dim tm As String = ProjectPath & "Attachments\\savetopdf.doc" \'指定模板文件 Dim fl1 As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件 Dim fl2 As String = ProjectPath & "Reports\\出库单.pdf" \'指定目标PDF文件 Dim wrt As New WordReport(Tables("lt报表"),tm,fl1) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.SaveToPDF(fl2) \'保存为PDF文件 wrt.Quit() \'退出 Dim Proc As New Process \'打开PDF文件 Proc.File = fl2 Proc.Start() 怎么选择表【lt报表】的全部行啊？ 另外，如何让一张图片在报表中铺满整个A4纸。 调整了[&图片,560,630]中的长和宽，总是有点变形。 |
| -- 作者：有点蓝 -- 发布时间：2019/11/12 20:45:00 -- Tables("lt报表").Select(0,0,Tables("lt报表").Rows.Count - 1 ,0) Dim wrt As New WordReport(Tables("lt报表"),tm,fl1) 或者 Dim wrt As New WordReport(Tables("lt报表"),tm,fl1) For Each r As Row In Tables("lt报表").Rows\'逐行生成报表 wrt.BuildOne(r) Next wrt.SaveToPDF(fl2)
|
| -- 作者：newsun2k -- 发布时间：2019/11/13 21:16:00 -- 另外，如何让一张图片在报表中铺满整个A4纸。原来的图片就是a4纸的。 调整了[&图片,560,630]中的长和宽，总是有点变形。
|
| -- 作者：有点蓝 -- 发布时间：2019/11/14 9:30:00 -- word只能固定长和宽。把560,630改为A4的长和宽值 |