以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  打印指定行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44979)
--  作者：SHMZ
--  发布时间：2014/1/13 12:24:00
--  打印指定行

请教：

excel报表中，打印指定行怎么设置打印范围？如：想打印一个表的第10行到第18行，怎么设置？
--  作者：狐狸爸爸
--  发布时间：2014/1/13 12:50:00
--  
先选定这些行，然后再打印
--  作者：SHMZ
--  发布时间：2014/1/13 12:57:00
--  

帮助里就是说选定这些行然后再打印，可是怎么选定？（我要用代码设定打印范围执行）
--  作者：狐狸爸爸
--  发布时间：2014/1/13 12:59:00
--  

用代码选定参考：

http://www.foxtable.com/help/topics/0550.htm

 
--  作者：SHMZ
--  发布时间：2014/1/13 13:03:00
--  
用模板文件中设定<all>是打印全部，不设定就是打印当前行。现在我要打印第10行到第18行，模板文件中怎么设定？
--  作者：SHMZ
--  发布时间：2014/1/13 13:09:00
--  
我要用代码动态生成模板文件中的打印条件，目前是按照表中一个字段的数值设置打印条件。现在想将打印条件改为：打印数据表的第几行到第几行
--  作者：SHMZ
--  发布时间：2014/1/13 13:22:00
--  
在模板文件中将<all>改为<Tables("abc").Select(9,tables("abc").cols.count-1,17,tables("abc").cols.count-1)>试了一下，好像不行
--  作者：SHMZ
--  发布时间：2014/1/13 14:06:00
--  

可以解决吗？
--  作者：SHMZ
--  发布时间：2014/1/13 14:48:00
--  
狐爸及各位大侠请帮忙。谢谢！在线等
--  作者：狐狸爸爸
--  发布时间：2014/1/13 15:33:00
--  

你要打印打印指定行的话，就不能设置打印条件为All，删除模板中的打印条件。
 
然后自己做个按钮，用下面的代码打印：


Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"

Tables("表名").Select(8,0,17,0) \'选定第9行到第18行。
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()