如何使用（Catia）vba从excel创建颜色pdf-Java 学习之路

嘿，我是编码新手 . 我正在努力，但我被卡住了 . 我搜索了互联网和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”参数，但在suportet文件格式列表中没有pdf .

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

提前致谢

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

回复于 2024-04-29T19:15:00+08:00

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

1 回答

相关问题