如何使用（Catia）vba从excel创建彩色pdf答案

【问题标题】：how to create a color pdf from excel using (Catia) vba如何使用（Catia）vba从excel创建彩色pdf
【发布时间】：2018-03-08 16:51:55
【问题描述】：

Hej，我是编码新手。我正在尽我所能，但我被困住了。我搜索了互联网和stackoverflow，但没有找到答案。我正在用 Catia V5 VBA 编写代码，我想将 excel 导出为 pdf。 Excel 有一些彩色图片，我希望 pdf 也是 color。但我总是以黑白的 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 Acribat 无法打开 'Excel_1.pdf'，因为它不是受支持的文件类型或文件已损坏”

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

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

提前致谢

【问题讨论】：

这很奇怪，因为当我使用 mySheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Excel_1.pdf", Quality:=xlQualityStandard 尝试您的代码时，输出中的 pdf 是彩色的。当我阅读您的问题时，我假设您从 Catia 运行宏。你能在 Excel 中测试你的代码吗（Excel > Visual Basic），然后告诉我 pdf 是否仍然没有着色？
xlQualityStandard 后面的“, _”如果后面没有其他参数，也要删除。
感谢您的回复。我已经弄清楚出了什么问题，而且它不在代码中（除了无意的“，_”部分:)）。我不得不从黑白中删除页面设置/纸张/打印复选标记。我非常专注于代码，以至于我没有在 excel 中查看页面设置选项。

标签： vba excel catia

【解决方案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

【讨论】：