|
Dim Book As New XLS.Book(fs) '& e.Form.Controls("订单号").text & ".xls")
Dim fl As String = ProjectPath & "OutPut\标签1.xls"
Book.Sheets.SelectedIndex=e.Form.Controls("TabControl1").SelectedIndex '显示标签还是唛头
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut(Copies:=3)
app.quit
catch ex As exception
msgbox(ex.message)
app.quit
End try
| 
加好友 
发短信
Post By：2017/4/24 11:12:00 [只看该作者]
