以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Excel报表预览打印，在XP系统上出现错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76456)
--  作者：JPG7
--  发布时间：2015/10/29 14:43:00
--  Excel报表预览打印，在XP系统上出现错误
代码：
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单-发货单.xls")
    Dim fl As String = ProjectPath & "Reports\\出库单-发货单.xls"
    Book.Build()
    Book.Save(fl) \'保存工作簿
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range
    Rg = Ws.Range("C:C,E:E,G:G,H:H,I:I,J:J")
    \'Rg.EntireColumn.AutoFit   \'自动调整列宽
    Rg.EntireRow.AutoFit
    rg .WrapText =True \'引用单个单元格
    App.Visible = True
    Ws.printout(Preview:=True)
    App.Quit

错误提示：
 .NET Framework 版本：2.0.50727.3655
Foxtable 版本：2015.10.26.1
错误所在事件：窗口,出库单,Button6,Click
详细错误信息：
System.Runtime.InteropServices.COMException (0x80040154): Retrieving the COM class factory for component with CLSID {00024500-0000-0000-C000-000000000046} failed due to the following error: 80040154.
   at UserCode.AGUmuMyAwYpiABFbR(ControlEventArgs e) 
--  作者：大红袍
--  发布时间：2015/10/29 14:44:00
--  
 系统没有安装excel吧？
--  作者：JPG7
--  发布时间：2015/10/29 14:52:00
--  回复：（大红袍） 系统没有安装excel吧？
安装的wps。。
--  作者：大红袍
--  发布时间：2015/10/29 15:06:00
--  
要安装MS Office才行的，wps不行。
--  作者：JPG7
--  发布时间：2015/10/29 16:18:00
--  回复：（大红袍）要安装MS Office才行的，wps不行。
en，谢谢
--  作者：cpas
--  发布时间：2015/10/29 16:34:00
--  
狐表应该要接受wps才行。wps对于国内用户来说好太多了，价格便宜，甚至免费的。一定要支持wps支持的excel文件格式！