vba - 如何使用 (Catia) vba 从 Excel 创建彩色 pdf

Question

Hej，我是编码新手。我正在尽力但我被困住了。我搜索过互联网和 stackoverflow 但没有找到答案。我正在 Catia V5 VBA 中编写代码，我想将 excel 导出为 pdf。 Excel 有一些彩色图片，我希望 pdf 也是彩色。但我最后总是得到黑白的pdf。这是我的基本代码:

Sub CATMain()
Set xlApp = CreateObject("Excel.Application")
Set mydoc = xlApp.Workbooks.Open("D:\Excel_1.xls")
Set mySheet = mydoc.Sheets.Item(1)

mySheet.ExportAsFixedFormat Type:=xlTypePDF, _
    fileName:="D:\Excel_1.pdf", _
    Quality:=xlQualityStandard, _
End Sub

我查找了“ExportAsFixedFormat”方法的其他参数，但没有任何关于颜色的参数。

绝望中我也尝试过:

xlApp.ActiveWorkbook.SaveAs "D:\Excel_1.pdf"

但我收到错误消息:“Adobe Aribat 无法打开 'Excel_1.pdf'，因为它不是受支持的文件类型或因为文件已损坏”

Workbook.SaveAs 方法具有“FileFormat”参数，但支持的文件格式列表中没有 pdf。

你知道我应该使用什么方法来获取彩色pdf吗？

提前致谢

Answer 1

如果有人遇到和我一样的问题，只需在导出到 pdf 之前添加此代码:

mySheet.PageSetup.BlackAndWhite = False

这会将纸张设置为彩色打印。

所以，代码将如下所示:

Sub CATMain()

Set xlApp = CreateObject("Excel.Application")
Set mydoc = xlApp.Workbooks.Open("D:\Excel_1.xls")
Set mySheet = mydoc.Sheets.Item(1)

mySheet.PageSetup.BlackAndWhite = False

mySheet.ExportAsFixedFormat Type:=xlTypePDF, _
fileName:="D:\Excel_1.pdf", _
Quality:=xlQualityStandard

End Sub