我正在尝试将活动 sheet 打印为 PDF，是否也可以分别打印第 1 页和第 2 页？到目前为止我有这个

Question

我正在尝试将有效的 sheet 打印为 PDF，是否也可以分别打印第 1 页和第 2 页？到目前为止我有这个。我希望导出的名称使用单元格 B1 I1 和 J1

中的值

子 PDFActiveSheet()

Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Set ws = ActiveSheet

'enter name and select folder for file
' start in current workbook folder
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
        & "_" _
        & Range("B1"&"I1"&"J1") _
        & ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile

myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    MsgBox "PDF file has been created."
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler

结束子

Answer 1

只需使用ExportAsFixedFormat函数的From和To参数即可：

ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False, _
    From:=1, _
    To:=1

第 2 页也是如此

我正在尝试将活动 sheet 打印为 PDF，是否也可以分别打印第 1 页和第 2 页？到目前为止我有这个

I am trying to print an active sheet as a PDF, is it also possible to print page 1 and 2 separately? i have this so far

vba

excel

export

file-conversion

export-to-pdf