Question

我正在尝试创建一个只将特定区域导出为PDF的宏。我的工作簿中有多个工作表，但我不能将SaveAs与xlSelection一起使用，因为该参数存在错误，并将整个工作簿导出为PDF。这是我的代码：

Sub Export()
'
' Export Macro
'
' Keyboard Shortcut: Option+Cmd+p
'
Range("B1:G32").Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="~:Desktop:Quote.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

如果我有办法解决，请告诉我。

Answer 1

以下是我的代码，它成功地将我的东西保存为pdf。我正在保存整个工作表，而不是某些单元格。也许你可以修改我的代码来做你想做的事。另一件事是我的代码是用VB.net用Visual Studio编写的，所以请对vba进行适当的转换。

如果保存单元格不适合您，您可以复制所需的所有单元格，将它们粘贴到新工作表中，然后将整个新工作表保存为pdf。它可以通过vba实现。

 xlWorkSheet.ExportAsFixedFormat(Type:=Excel.XlFixedFormatType.xlTypePDF,
                                    Filename:=output_dir & "\" & test_set & "_" & sub_test & ".pdf",
                                    IgnorePrintAreas:=True,
                                    OpenAfterPublish:=False,
                                    Quality:=Excel.XlFixedFormatQuality.xlQualityStandard)

使用ExportAsFixedFormat将被发送到打印机而不是Excel 2016

1 个答案: