Code VB ส่งออก Sheet เป็น PDF หลายหน้า ตามที่เลือก ต้องปรับ อย่างไรครับ

[tigerwit]

จากไฟล์ที่แนบมา
ต้องการ save ไฟล์ให้เป็ PDF โดย เลือกหน้าที่เราต้องการ
เช่นต้องการเฉพาะ หน้า 1 หน้า 4 และหน้า 5
ต้องปรับโค๊ดอย่างไรครับ

Code: Select all

Sub SaveAllPdf()
    Dim sFolderPath As String
    Dim Path As String
    Dim FName As String
    On Error Resume Next
    Application.ScreenUpdating = False
    sFolderPath = "C:\" & "TestPDF"
    If Dir(sFolderPath, vbDirectory) = "" Then
        MkDir sFolderPath
    End If
    FName = "PrintTest"
    Application.DisplayAlerts = False
    ActiveWorkbook.ExportAsFixedFormat xlTypePDF, From:=1, To:=5, Filename:=sFolderPath & "\" & FName
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
        If MsgBox("ส่งออกไฟล์ไปไว้ที " & sFolderPath & vbCrLf & "ต้องการเปิด Folder กด Yes ไม่ต้องการ กด No ", 36, "Open Folder") = 6 Then
        ActiveWorkbook.FollowHyperlink Address:=sFolderPath, NewWindow:=True
        End If
End Sub

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

ActiveWorkbook.ExportAsFixedFormat xlTypePDF, From:=1, To:=5, Filename:=sFolderPath & "\" & FName

เปลี่ยนเป็น

Code: Select all

    ThisWorkbook.Sheets(Array("Sheet1", "Sheet4", "Sheet5")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFolderPath & "\" & FName