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


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

主题:[求助]连续打印

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


加好友 发短信
等级:幼狐 帖子:114 积分:984 威望:0 精华:0 注册:2015/11/16 12:46:00
[求助]连续打印  发帖心情 Post By:2016/5/26 0:58:00 [显示全部帖子]

老师好,请教下关于复选框勾选连续打印的问题。
 用的纸张是  241mm*279.4mm的三联纸
EXCEL  报表里 打印设置里纸张设置成  同种规格的,但是打印一张的时候可以,当多选的时候就会空一张纸出来再打下一个,而且还会出现EXCEL报表已经使用,只能只读模式
请问下   报表格式要怎么设计?


<End>
<出库明细表>[公司名称]

销售回执单备查联(白) 二联||客户签收联(红) 三联||送货联(黄)










<"回执单号:" & [回执编号]>发货公司:[发货公司]发运日期:[日期]
<"收货客户:" & [收货单位]>联系信息:[联系人]
收货地址:[收货地址]
品名批次计量单位配载数量配载件数实发数量实发件数客户签收数量发货通知单号备注
[品名][批号][配载重量][配载件数][出库重量][件数][发货单号][发货备注]
<"车牌号码:" & [承运车辆]>司机姓名:[驾驶员]联系电话:[联系电话]










<出库明细表>










<End>

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


加好友 发短信
等级:幼狐 帖子:114 积分:984 威望:0 精华:0 注册:2015/11/16 12:46:00
  发帖心情 Post By:2016/5/26 11:44:00 [显示全部帖子]

For  Each R2 As Row In Tables("组货计划窗口_出库明细附表").GetCheckedRows

    If r2("库位")<>Nothing  Then
        
        Dim Book As XLS.Book
        
        book = New XLS.Book(ProjectPath & "Attachments\回执单模板.xls")
        Dim fl As String = ProjectPath & "Reports\出库开单.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Verb= "Print"
        Proc.Start()

        R2("已打印")=True
    Else
        MessageBox.Show("请选择库位后再打印!","提示:")
    End If
    R2.Checked =False
Next

打印代码如上,请老师帮忙看看~~

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


加好友 发短信
等级:幼狐 帖子:114 积分:984 威望:0 精华:0 注册:2015/11/16 12:46:00
  发帖心情 Post By:2016/5/26 13:26:00 [显示全部帖子]

 .NET Framework 版本:2.0.50727.5466
 Foxtable 版本:2016.5.13.1
错误所在事件:窗口,组货计划窗口,打印,Click
详细错误信息:
未找到类型“Worksheet”的公共成员“Print”。 

按照老师代码。,提示如上错误。。

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


加好友 发短信
等级:幼狐 帖子:114 积分:984 威望:0 精华:0 注册:2015/11/16 12:46:00
  发帖心情 Post By:2016/5/26 13:39:00 [显示全部帖子]

ws.PrintOut (1,1)     
  App.Quit
改成这个,可以打印,,但是打印出来的 内容是重复的。提示 出库开单已经打开

 回到顶部