Setting a Print range for 1 range within multiple ranges

[DKsmash2014]

Hello,

I have the following code - My question is how can I set the "Marketing & Sales Dept BGT.PDF" range to fit to 1 page and have the only one to do that? It's the only one where there are 3 rows that roll over - the others fit just fine.

Thank you!

Sub Dept_BGT_Print()
    Range("C14:R45").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "John Kreft Dept BGT.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
    Range("C47:R59").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "HR Dept BGT.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
    Range("C62:R126").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "Marketing & Sales Dept BGT.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
    Range("C128:R207").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "Skip Dept BGT.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
    Range("C209:R250").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "Amy Dept BGT.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
 
End Sub

[spitfireblue]

At the start of your code add this in:

    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With