打印问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请老师看看，下面问题是什么原因，自己检查路径和文件名没有错啊，是在WebBrowser1显示EXCEL报表后准备通过按钮进行打印的，如果在打开的EXCEL工具栏进行打印没有问题，但是用按钮控件执行打印时报错。是否要指定打印机。

报错提示：

找不到“D:\软件\Publish\Project\Reports\支出明细.xls”。请检查文件名的拼写，并验证文件位置是否正确。

如果您正试图从最近使用的文件列表中打开该文件，请确保该文件未被重命名、移动或删除。

按钮控件打印代码：

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\软件\Publish\Project\Reports\支出明细.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

With Ws.PageSetup

.Orientation = MSExcel.xlPageOrientation.xlLandscape '横向打印

.CenterHorizontally = True '页面水平居中

End With

App.Visible = True

Ws.PrintPreview

App.Quit

主题：打印问题