Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "excel\当天销售明细单.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.printout(Preview:=True)
App.Quit
小刺猬 你也看看APP从啥地方来的,你都没有定义.
加好友 
发短信
Post By：2012/10/15 7:34:00 [显示全部帖子]
