Excel Forum

Code: Select all

Sub printpdf()
    Dim sFolderPath As String
    Dim FName As String
    Dim fdObj As Object
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    fdObj.CreateFolder ("C:\" & Range("A2").Value)
    sFolderPath = "C:\" & Range("A2").Value
    FName = Range("A1").Value & ".PDF"
'    If Sheet1.Range("J1").Value > 38 Then
        Sheets(Array("sheet2", "sheet3", "sheet4", "sheet5", "sheet6")).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFolderPath & "\" & FName
        Sheet1.Select
'     End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Print OK"
End Sub

Code: Select all

Sub printpdf()
    Dim sFolderPath As String
    Dim FName As String
    Dim fdObj As Object
    
    On Error Resume Next
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    fdObj.CreateFolder ("C:\" & Range("A2").Value)
    sFolderPath = "C:\" & Range("A2").Value
    FName = Range("A1").Value & ".PDF"
    
    If Sheet1.Range("J1").Value > 38 Then
        Sheets(Array("sheet2", "sheet3", "sheet4", "sheet5", "sheet6")).Select
    Else
        With Sheets("Sheet2")
            With .PageSetup
                .PrintArea = "A2:J38"
                .FitToPagesTall = 1
            End With
        .Select
        End With
    End If
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFolderPath & "\" & FName
    Sheet1.Select

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Print OK"
End Sub