Foxtable(狐表)用户栏目专家坐堂 → excel报表的打印范围问题


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

主题:excel报表的打印范围问题

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/26 9:37:00 [显示全部帖子]

动态条件恐怕不能这么做

请用这个方式


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/26 10:08:00 [显示全部帖子]

用2楼方法绝对可行  *号去掉. 搞不定上例子

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/26 10:30:00 [显示全部帖子]

你为何不按照帮助的来做呢,为什么非要弄个引用全局变量呢, 你直接设置全家变量的值不就完了图片点击可在新窗口打开查看


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/26 10:32:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\指令.xls")
Dim fl As String = ProjectPath & "Reports\指令落实情况表.xls"
Dim  Sheet As  XLS.Sheet =  Book.Sheets(0)
Sheet(3,7).Value = "< 文件编号 > '" & vars("tartnum") & "'> "  '写入打印条件  如果是数值列  
"< 文件编号 > " & vars("tartnum") & "> " 
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/26 10:40:00 [显示全部帖子]

这样也是一直在变化的啊.

 回到顶部