If Tables("收购单价汇总").Rows.Count = 0 Then
MessageBox.Show("请汇总后再打印!")
Else
Dim Book As New XLS.Book(ProjectPath & "Attachments\收购单.xls")
Book.Marks.Add("用户名",User.Name)
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)
App.Visible
= True
addhandler
Wb.BeforePrint,
addressof Workbook_BeforePrint
Ws.PrintPreview()
App.Quit
End If
这里预览就可以禁止。上面的可否借鉴?