Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表：想在一张纸内同一订单打两份怎么设置(19楼有解决方案)？


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

主题：excel报表：想在一张纸内同一订单打两份怎么设置(19楼有解决方案)？
帅哥哟，离线，有人找我吗？
Fotable
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00 		  发帖心情 Post By：2012/11/20 19:24:00 [只看该作者]

希望支持这个功能 打印多联单的时候 很常用呀

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2012/11/20 19:36:00 [只看该作者]

以下是引用Fotable在2012-10-30 12:12:00的发言：

狐狸8你的这个设置，是在同一张纸上 打印两条不同的订单。

我要求是打印2条重复的订单 也就是一行记录打印2次

在foxtable中筛选这条记录，克隆一行后再生成excel报表···


 回到顶部
帅哥哟，离线，有人找我吗？
Fotable
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00 		  发帖心情 Post By：2012/11/20 19:49:00 [只看该作者]

克隆一行的话，我的系统会提示 已经存在重复订单号。
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2012/11/20 22:08:00 [只看该作者]

以下是引用Fotable在2012-11-20 19:49:00的发言：

克隆一行的话，我的系统会提示 已经存在重复订单号。

可以专门做一个空表来处理打印的活呀。 不要限制重复···

[此贴子已经被作者于2012-11-20 22:14:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2012/11/20 22:11:00 [只看该作者]



图片点击可在新窗口打开查看此主题相关图片如下：未命名ex.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-11-20 22:12:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Fotable
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1015 积分：6979 威望：0 精华：0 注册：2012/8/1 18:41:00 		  发帖心情 Post By：2012/11/21 9:25:00 [只看该作者]

以下是引用mr725在2012-11-20 22:08:00的发言：

可以专门做一个空表来处理打印的活呀。 不要限制重复···

[此贴子已经被作者于2012-11-20 22:14:37编辑过]

我的表是关联表，很多列是表达式列，克隆到另外一个空表的话，哪些表达式列的数据是不是失效了。
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2012/11/21 9:44:00 [只看该作者]

以下是引用Fotable在2012-11-21 9:25:00的发言：

我的表是关联表，很多列是表达式列，克隆到另外一个空表的话，哪些表达式列的数据是不是失效了。

这个空表只接受数据，又不需要再用什么代码、表达式等，怎么会数据失效呢？ （空表可以复制一个，要和你原来的关联一致即可）


 回到顶部
帅哥哟，离线，有人找我吗？
迷狐
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00 		  发帖心情 Post By：2012/11/21 10:10:00 [只看该作者]

干脆调用VBA，先做好模板 ，再复制数据，想打几份就几份 

Ws.Rows("1:" & zh).Copy(Ws.Range("a" & p*zh+1)) '复制模板及表数据


 回到顶部
帅哥哟，离线，有人找我吗？
迷狐
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00 		  发帖心情 Post By：2012/11/21 17:29:00 [只看该作者]

做好模板
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:出库单.xls


Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\出库单.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("A2:F16").Copy(Ws.Range("A18") )
wb.save
App.Visible = 1
Ws.PrintPreview
app.quit


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20121121172906.gif
图片点击可在新窗口打开查看





[此贴子已经被作者于2012-11-22 8:15:51编辑过]
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2012/11/21 18:37:00 [只看该作者]

19楼： 看看你的模板，谢谢了···
 回到顶部
总数 28 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询