主题：关于excel报表

 参考

 

http://www.foxtable.com/webhelp/scr/1892.htm

 

下载信息  [文件大小：21.9 KB  下载次数：26]

点击浏览该文件:webbrowser操作excel.rar

e.Form.Controls("Webbrowser1").Address = Nothing

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps

    msgbox(p.MainWindowTitle)
    If p.MainWindowTitle = Nothing Then  p.kill
Next

 

'其余的重新生成的代码......

 

 

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.print

 

如果是webbrowser里面的，这样写

 

e.Form.Controls("Webbrowser1").Address = Nothing

 

如果是直接打开的，参考 http://www.foxtable.com/webhelp/scr/2713.htm

 

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

 

e.Form.Controls("Webbrowser1").Address = "d:\test.xls"

 

或者

 

e.Form.Controls("Webbrowser1").Address = "d:\test.jpg"

 

或者

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps

    msgbox(p.MainWindowTitle)
    If p.MainWindowTitle = Nothing Then  p.kill
Next