主题：[求助]ExportAsFixedFormat 另存为PDF 报错：未安装打印机

 报错：未安装打印机.

Dim App As New MSExcel.Application

Dim wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "123.xls")

wb.save   '必须写上这句,不然就会弹出保存对话框

wb.ExportAsFixedFormat(0,ProjectPath & "123.pdf")  '保存为PDF文件 ,第一个参数 0 为PDF类型, 设为1 是XPS类型.

wb.close()

App.Quit()

开启打印机服务，或者设置一个默认打印机

http://jingyan.baidu.com/article/48b558e35dfbc47f39c09a71.html