以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]连续打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85444)
--  作者：husl
--  发布时间：2016/5/26 0:58:00
--  [求助]连续打印
老师好，请教下关于复选框勾选连续打印的问题。
 用的纸张是  241mm*279.4mm的三联纸
EXCEL  报表里 打印设置里纸张设置成  同种规格的，但是打印一张的时候可以，当多选的时候就会空一张纸出来再打下一个，而且还会出现EXCEL报表已经使用，只能只读模式
请问下   报表格式要怎么设计？


<End>
<出库明细表>[公司名称]
销售回执单备查联（白） 二联||客户签收联（红） 三联||送货联（黄）










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










<出库明细表>










<End>
--  作者：Hyphen
--  发布时间：2016/5/26 8:39:00
--  
这样看不出问题，上传模板并贴出打印代码
--  作者：大红袍
--  发布时间：2016/5/26 9:18:00
--  
贴出你打印的代码，或者上传具体例子测试。
--  作者：husl
--  发布时间：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

打印代码如上，请老师帮忙看看~~
--  作者：大红袍
--  发布时间：2016/5/26 11:50: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 App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        ws.Print
        App.Quit
       
        R2("已打印")=True
    Else
        MessageBox.Show("请选择库位后再打印!","提示:")
    End If
    R2.Checked =False
Next
--  作者：husl
--  发布时间：2016/5/26 13:26:00
--  
 .NET Framework 版本：2.0.50727.5466
 Foxtable 版本：2016.5.13.1
错误所在事件：窗口,组货计划窗口,打印,Click
详细错误信息：
未找到类型“Worksheet”的公共成员“Print”。 

按照老师代码。，提示如上错误。。
--  作者：husl
--  发布时间：2016/5/26 13:39:00
--  
ws.PrintOut （1,1）     
  App.Quit
改成这个，可以打印，，但是打印出来的 内容是重复的。提示 出库开单已经打开
--  作者：大红袍
--  发布时间：2016/5/26 14:50:00
--  
If FileSys.DirectoryExists(ProjectPath & "Reports\\temp") Then
    FileSys.DeleteDirectory(ProjectPath & "Reports\\temp\\", 3, 3)
End If
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\\temp\\出库开单" & format(Date.now, "HHmmss") & ".xls"
        Book.Build() \'生成细节区
        Book.Save(fl) \'保存工作簿
       
        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        ws.PrintOut
        App.Quit
       
        R2("已打印")=True
    Else
        MessageBox.Show("请选择库位后再打印!","提示:")
    End If
    R2.Checked =False
Next