主题：[求助]连续打印

贴出你打印的代码，或者上传具体例子测试。

试试这样

 

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

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