Snasui Excel Forum

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

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