Snasui Excel Forum

Code: Select all

Sub SavePDF()
     Application.ScreenUpdating = True
     
    ' ActiveSheet.PageSetup.PrintArea = "Area3"
    ' [choice] = 3
    With ActiveSheet.PageSetup
        With .Parent
            ActiveWindow.View = xlPageBreakPreview
            .ResetAllPageBreaks
            .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
            Set .HPageBreaks(1).Location = .Range("a36")
            Set .HPageBreaks(2).Location = .Range("a66")
            ActiveWindow.View = xlNormalView
        End With
        .PrintArea = "$A$1:$G$93"
        .FitToPagesWide = 1
        .FitToPagesTall = 3
        .PrintTitleRows = "$1:$5"
    End With

    Dim strFileName As String
    strFileName = Application.GetSaveAsFilename( _
        FileFilter:="PDF Files (*.pdf),*.pdf", _
        Title:="Save As PDF")
    If strFileName <> "False" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=strFileName, _
            OpenAfterPublish:=False
    End If
    
    Application.ScreenUpdating = True
 
End Sub