Foxtable(狐表)用户栏目专家坐堂 → 打印指定行


  共有3518人关注过本帖树形打印复制链接

主题:打印指定行

帅哥哟,离线,有人找我吗?
SHMZ
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:126 威望:0 精华:0 注册:2013/12/19 13:57:00
打印指定行  发帖心情 Post By:2014/1/13 12:24:00 [只看该作者]

请教:

excel报表中,打印指定行怎么设置打印范围?如:想打印一个表的第10行到第18行,怎么设置?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/13 12:50:00 [只看该作者]

先选定这些行,然后再打印

 回到顶部
帅哥哟,离线,有人找我吗?
SHMZ
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:126 威望:0 精华:0 注册:2013/12/19 13:57:00
  发帖心情 Post By:2014/1/13 12:57:00 [只看该作者]

帮助里就是说选定这些行然后再打印,可是怎么选定?(我要用代码设定打印范围执行)


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/13 12:59:00 [只看该作者]

用代码选定参考:

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
SHMZ
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:126 威望:0 精华:0 注册:2013/12/19 13:57:00
  发帖心情 Post By:2014/1/13 13:03:00 [只看该作者]

用模板文件中设定<all>是打印全部,不设定就是打印当前行。现在我要打印第10行到第18行,模板文件中怎么设定?

 回到顶部
帅哥哟,离线,有人找我吗?
SHMZ
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:126 威望:0 精华:0 注册:2013/12/19 13:57:00
  发帖心情 Post By:2014/1/13 13:09:00 [只看该作者]

我要用代码动态生成模板文件中的打印条件,目前是按照表中一个字段的数值设置打印条件。现在想将打印条件改为:打印数据表的第几行到第几行

 回到顶部
帅哥哟,离线,有人找我吗?
SHMZ
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:126 威望:0 精华:0 注册:2013/12/19 13:57:00
  发帖心情 Post By:2014/1/13 13:22:00 [只看该作者]

在模板文件中将<all>改为<Tables("abc").Select(9,tables("abc").cols.count-1,17,tables("abc").cols.count-1)>试了一下,好像不行

 回到顶部
帅哥哟,离线,有人找我吗?
SHMZ
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:126 威望:0 精华:0 注册:2013/12/19 13:57:00
  发帖心情 Post By:2014/1/13 14:06:00 [只看该作者]

可以解决吗?


 回到顶部
帅哥哟,离线,有人找我吗?
SHMZ
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:126 威望:0 精华:0 注册:2013/12/19 13:57:00
  发帖心情 Post By:2014/1/13 14:48:00 [只看该作者]

狐爸及各位大侠请帮忙。谢谢!在线等

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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()
 


 回到顶部