我做的报表,设置了“打印预览”,和“直接打印”两个按钮,每次不管按那个都出现是否保存Excel表,太麻烦了,其实不用保存的,每次都要点一下。
“打印预览”按钮代码如下,请那位高人指点一下,谢谢了
Dim Book As 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)
App.Visible = True
Ws.PrintPreview
App.Quit
[此贴子已经被作者于2013-7-18 13:23:55编辑过]