主题：关于excel报表

能否把要打印的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

怎么关闭指定的excel

 

如果是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 Proc As New Process
    Proc.File = fl
    'Proc.Verb = "Print" '指定动作
    Proc.Start()