- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何让这个报表不重复打印？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78021)
-- 发布时间：2015/11/30 19:40:00
-- [求助]如何让这个报表不重复打印？
各位老师，我这里有个例子：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:word报表依次打例子.rar |
这里面有个word模版，里面一页对应8个数据。例子里共有10条记录。正常的话，应该是全选10条记录，打印的报表是2页
但不知道为什么，我自己使用时，总是选定几条记录，就打印几次，比如全选10条记录，打印的报表就是10页，里面重复……
不知道是我哪里没有注意好？求老师指点！
另外，这个报表原本是我必须选择8条记录来打印，因为模版是一页8条记录。如果我要多选的话，就会导致数据错乱
有没有办法让我不选记录，随便在哪打印，都是打到记录全部生成为止呢？
十分感谢！
-- 发布时间：2015/11/30 20:14:00
--
用excel报表来做，做好以后拷贝过去word报表
http://www.foxtable.com/help/topics/1414.htm
Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) \'指定要复制的工作表
Ws.UsedRange.Copy
Dim fileName = "d:\\test.doc"
Dim doc = wapp.Documents.Open(fileName)
wapp.ActiveWindow.Selection.WholeStory
wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
wapp.ActiveWindow.Selection.TypeParagraph
wapp.ActiveWindow.Selection.paste
wapp.Visible = True
catch ex As exception
msgbox(ex.message)
wapp.Quit
finally
eapp.quit
End try
-- 发布时间：2022/7/14 15:53:00
--
这个代码放在什么位置？如果复制到指定位置怎么写？
[此贴子已经被作者于2022/7/14 15:54:49编辑过]
-- 发布时间：2022/7/14 15:57:00
--
按钮
-- 发布时间：2022/7/14 16:00:00
--
如果要复制到word中的指定位置怎么写？
[此贴子已经被作者于2022/7/14 15:59:53编辑过]
-- 发布时间：2022/7/14 16:26:00
--
位置查找参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=126389