Question

Hej，我是编码新手。我正在努力，但我被卡住了。我已经搜索了互联网和stackoverflow但没有找到答案。我在Catia V5 VBA中编写代码，我想将excel导出为pdf。 Excel有一些颜色的图片，我希望pdf也是颜色。但我总是以Black＆amp; amp;白色。这是我的基本代码：

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

我已经找到了＆＃34; ExportAsFixedFormat＆＃34;的其他参数。方法，但没有任何颜色。

在绝望中我也尝试过：

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

但我得到错误说：＆＃34; Adobe Acribat无法打开＆＃39; Excel_1.pdf＆＃39;因为它不是受支持的文件类型，或者因为文件已损坏而且＃34;

Workbook.SaveAs方法有＆＃34; FileFormat＆＃34;参数但是在suportet文件格式列表中没有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

如何使用（Catia）vba从excel创建颜色pdf

1 个答案: