Foxtable(狐表)用户栏目专家坐堂 → [求助]打印


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

主题:[求助]打印

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
[求助]打印  发帖心情 Post By:2016/4/28 18:10:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:截图20160428180223.png
图片点击可在新窗口打开查看


Dim Book As New  XLS.Book(projectpath & "Attachments\产品入库序时簿模板.xlsx")
 Dim fl As  String = projectpath & "Reports\入库单.xlsx"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
 Sheet(3,9).Value = "<All>" '写入打印条件
 Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As  New  Process  '打开工作簿
Proc.File = fl
 Proc.Start()

老师请问如何换页打还是套用这个模板,因为有时候东西太多换页了,但他只是接着上面的,我想要下一页的也套用这个模板

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/4/28 18:55:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:截图20160428185159.png
图片点击可在新窗口打开查看






Dim sql As String = "Selec t  [客户料号],[物料长代码] as [物料代码],[规格型号] as [产品规格],sum([应收数量]) as [入库数量],[制单] from {产品入库序时簿} Group by [客户料号],[物料长代码],[规格型号],[制单]"

Dim q As new QueryBuilder
q.TableName = "统计"
q.SelectString = sql
q.Build

老师这个是临时表,怎么能给这个临时表加一列序号并且让他自动生成序号?

[此贴子已经被作者于2016/4/28 19:01:20编辑过]

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/4/28 20:00:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:截图2.png
图片点击可在新窗口打开查看
老师我想把人员那个临时表的内容填到日期和制单人几个地方,但用的不是统计表,统计表和人员表都是从序时簿里筛选出来的。直接填他会报子表必须在父表内,怎么解决
还有,老师我现在分页了,但我想设置一个文本能显示 分页码/总页码,请问老师怎么做到。

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/4/29 9:27:00 [显示全部帖子]

老师,我在上图G列加了<页号>,然后button代码这么写,什么都不显示啊。因为不是菜单生成的,没有beforebuild这些事件,请问怎么解决

Dim Book As New  XLS.Book(projectpath & "Attachments\产品入库序时簿模板.xlsx")
 Dim fl As  String = projectpath & "Reports\入库单.xlsx"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim yehao As String
Sheet(3,9).Value = "<All>" '写入打印条件
 Book.Marks.Add("页号", "")
 Book.Marks.Add("pg", 0)
Book.Build() '生成细节区
        Book.Marks("pg") = Book.Marks("pg") + 1
        Book.Marks("页号") = "第" & Book.Marks("pg") & "页"
Book.Save(fl) '保存工作簿
Dim Proc As  New  Process  '打开工作簿
Proc.File = fl
 Proc.Start()


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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/4/29 16:03:00 [显示全部帖子]

老师,我想添加一个打印时间为当前计算机时间,如16-04-29 16:00这样的,请问标签用什么。 

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/4/29 16:24:00 [显示全部帖子]

老师,直接放在excel的模板里没用啊。

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/5/4 15:16:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:截图20160504151318.png
图片点击可在新窗口打开查看

老师我想删掉合计那一行然后保存表格后继续后面的操作,请问delete那边怎么写,现在报错“未声明名称delete”

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/5/4 16:23:00 [显示全部帖子]

老师合计那行还是没删除,现在表格还是和原来的一样。

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/5/5 9:26:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:截图1.png
图片点击可在新窗口打开查看
老师,现在我想根据编号分开打。

图片点击可在新窗口打开查看此主题相关图片如下:截图2.png
图片点击可在新窗口打开查看
这是人员表,是从产品入库序时簿里筛选出来的一个临时表。

图片点击可在新窗口打开查看此主题相关图片如下:截图3.png
图片点击可在新窗口打开查看
这是统计表,也是从产品入库序时簿里筛选出来的一个临时表。

统计表里含有一列单据编号 ,我想按图1里的来分,

图片点击可在新窗口打开查看此主题相关图片如下:截图4.png
图片点击可在新窗口打开查看
希望每页都是一个完整的单子,只是单据编号不同。
但是提示 子表必须在父表细节区内,请老师帮忙看看。


[此贴子已经被作者于2016/5/5 9:29:44编辑过]

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


加好友 发短信
等级:一尾狐 帖子:481 积分:3258 威望:0 精华:0 注册:2015/6/2 8:33:00
  发帖心情 Post By:2016/5/5 10:54:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:截图1.png
图片点击可在新窗口打开查看

老师,人员表和统计表关联起来了,但是我模板这么写,打印之后是白的

图片点击可在新窗口打开查看此主题相关图片如下:截图2.png
图片点击可在新窗口打开查看


 回到顶部
总数 16 1 2 下一页