Function MyPrintAll(Mname As String,PName As String)
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Mname & ".xls") '打开模板
Dim fl As String = ProjectPath & pname
Dim Sheet As XLS.Sheet = Book.Sheets(0)
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)
Dim Rg As MSExcel.Range = Ws.Cells
'Rg.EntireColumn.AutoFit '自动调整列宽
Rg.EntireRow.AutoFit '自动调整行高
App.Visible = True
ShowAppWindow(pname,2)
Ws.PrintPreview
End Function
加好友 
发短信
Post By：2015/5/29 14:35:00 [显示全部帖子]
