| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79519) |
| -- 作者：douglas738888 -- 发布时间：2016/1/4 9:55:00 -- 打印问题 请老师看看，下面问题是什么原因，自己检查路径和文件名没有错啊，是在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 |
| -- 作者：大红袍 -- 发布时间：2016/1/4 9:57:00 -- 路径肯定有问题，看看是不是后缀名的问题 xlsx
D:\\软件\\Publish\\Project\\Reports\\支出明细.xlsx |