以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- word报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145099)
|
-- 作者:cd_tdh
-- 发布时间:2020/1/8 13:03:00
-- word报表
老师,我勾选多行生存报表时,为什么从第2张开始,前面会多一个回车符号出来呢?
Dim rs As List(of Row) = Tables("打保证金表").GetCheckedRows If rs.Count > 0 Then \'如果存在符合条件的行 Dim tm As String = ProjectPath & "Attachments\\投标保证金支付凭证.docx" \'指定模板文件 Dim fl1 As String = ProjectPath & "Reports\\投标保证金支付凭证.docx" \'指定目标文件 Dim fl2 As String = ProjectPath & "Reports\\投标保证金支付凭证.pdf" \'指定目标PDF文件 Dim wrt As New WordReport(Tables("打保证金表"),tm,fl1) \'定义一个WordReport For Each r As Row In rs \'逐行生成报表 wrt.BuildOne(r) Next \'wrt.SaveToPDF(fl2) \'保存为PDF文件 \'wrt.Quit() \'退出 \'Dim Proc As New Process \'打开PDF文件 \'Proc.File = fl2 \'Proc.Start() wrt.Show() \'显示报表 End If
此主题相关图片如下:qq截图20200108125953.png
|
-- 作者:cd_tdh
-- 发布时间:2020/1/8 13:24:00
--
问题2,修改Checked状态,CheckedChanged事件判断没用呢?
Dim r As Row = Tables("打保证金表_table1").Current If r.Checked =True Then If r("审批状态") <> "已审批完成" Then MessageBox.Show("该项目还审批完成,不能打印!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) r.Checked = False msgbox(4) End If End If
[此贴子已经被作者于2020/1/8 13:25:24编辑过]
|
-- 作者:有点蓝
-- 发布时间:2020/1/8 13:41:00
--
正常,word就是这样的,您在office里面编辑word,手工添加一个分页符,前面也会多一个换行的。
Dim r As Row = Tables("打保证金表_table1").Current msgbox(r.Checked) msgbox(r("审批状态"))
|
-- 作者:cd_tdh
-- 发布时间:2020/1/8 13:48:00
--
有没办法处理啊,要不只能一页一页打印,有点繁琐。
后面的我直接在表事件中写代码就没问题了。
|
-- 作者:有点蓝
-- 发布时间:2020/1/8 14:08:00
--
模板文件发上来看看
|
-- 作者:cd_tdh
-- 发布时间:2020/1/8 14:43:00
--
目前处理方式,把下页边距调整小点,让回车符号显示到前一页就行。
|
-- 作者:xiaozhaomdh
-- 发布时间:2020/8/5 16:58:00
--
|