主题：隐藏打印标志

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

这里预览就可以禁止。上面的可否借鉴？