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


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

主题:[求助]关于报表批量打印

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


加好友 发短信
等级:婴狐 帖子:9 积分:126 威望:0 精华:0 注册:2024/12/23 9:06:00
[求助]关于报表批量打印  发帖心情 Post By:2024/12/24 11:22:00 [只看该作者]


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

图片点击可在新窗口打开查看此主题相关图片如下:47efae089f5ddbfb13de086b4fcf8a4.png
图片点击可在新窗口打开查看
因实际工作中,每份资料打印的份数是不同的,有个需要打印3张,有的需要打印2张,而分开单独点击一次打印一张效率太低,有没有办法按照指定列标记的数字当做打印数量,数字标记几,就打印几次?
图片点击可在新窗口打开查看此主题相关图片如下:3fd6c25eff63535c2bdf2ba8dfaa7d4.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:9 积分:126 威望:0 精华:0 注册:2024/12/23 9:06:00
  发帖心情 Post By:2024/12/24 11:29:00 [只看该作者]

因为我做的是服装行业,需要在每件衣服挂上单独挂牌给客人,每个款式挂牌的数量都不一样,又想提高效率,请教一下如何实现不同数量的批量打印
图片点击可在新窗口打开查看此主题相关图片如下:cb80737bc9283727bb5c19d58121ab5.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/24 12:03:00 [只看该作者]

Dim fl As String = ProjectPath & "Reports\寄样衣记录.xls"
Dim App As New MSExcel.Application

for i as integer = 0 to tables("寄样衣记录").rows.count - 1
tables("寄样衣记录").position = i
Dim Book As New XLS.Book(ProjectPath & "Attachments\寄样衣记录.xls")
Book
.Build() '生成细节区
Book
.Save(fl) '保存工作簿
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(Copies:=tables("寄样衣记录").rows(i)("QTY"))
Wb.clsoe
Catch ex As Exception
    MessageBox.Show(ex.message)
Wb.clsoe
End try
Application.DoEvents
next
App.Quit
[此贴子已经被作者于2024/12/24 12:05:53编辑过]

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


加好友 发短信
等级:婴狐 帖子:9 积分:126 威望:0 精华:0 注册:2024/12/23 9:06:00
  发帖心情 Post By:2024/12/24 14:32:00 [只看该作者]

谢谢

 回到顶部