คำสั่งพิมพ์ทั้ง Workbook แต่ต้องการให้ข้ามหน้าใดหน้าหนึ่งไป

[tigerwit]

จากไฟล์ที่แนบ
ต้องการส่งออกเอกสารเป็น PDF ครั้งเดียวทั้งหมดใน Workbook ในต่อหน้ากัน
แต่ต้องการข้ามหน้าใดหน้าหนึ่งไป (ในไฟล์ตัวอย่างต้องการข้ามหน้าที่ 2)
จะต้องปรับโค๊ดอย่างไรครับ

Code: Select all

Sub SaveToPdf()
    Dim sFolderPath As String
    Dim Path As String
    Dim FName As String
    On Error Resume Next
    With ActiveSheet.PageSetup
        .Zoom = 98
    End With
    Application.ScreenUpdating = False
    
    sFolderPath = "C:\" & "Pasadu"
    If Dir(sFolderPath, vbDirectory) = "" Then
        MkDir sFolderPath
    End If
        sFolderPath = "C:\" & "Pasadu" & "\" & ActiveSheet.Range("A10").Value
    If Dir(sFolderPath, vbDirectory) = "" Then
        MkDir sFolderPath
    End If
       
    FName = ActiveSheet.Range("A11") & ".PDF"
    Application.DisplayAlerts = False
    ActiveWorkbook.ExportAsFixedFormat xlTypePDF, from:=1, to:=8, Filename:=sFolderPath & "\" & FName

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "ส่งออกไฟล์ไปไว้ที " & "C:\" & "Passadu" & "\" & ActiveSheet.Range("A10").Value & "\" & FName

End Sub

[snasui]

ลองใช้วิธีคัดลอกไปวางในชีตใดชีตหนึ่งที่สร้างขึ้นมาสำหรับการสร้าง PDF เฉพาะโดย Loop ไปใช้เฉพาะหน้าที่ต้องการ จากนั้นค่อย Export เป้น PDF จากหน้านั้นแทนครับ