VBAでPDFを出力すると無理矢理１ページに出力されてしまう

Question

ExcelVBAを用いて、Excelシートを編集し、PDFを出力するというプログラムをしているのですが、PDF出力すると、その表の大きさに関わらず、PDFが１ページに出力されてしまいます。

つまり、縦に長くなっても、１ページになってしまうため、全体が小さくなってしまうのです。

   'PDF出力
        Worksheets("納品書").PageSetup.Orientation = xlPortrait    ' 印刷を縦向きに設定
        FileName = ThisWorkbook.Path & "/" & Sheet2.Cells(3, 2).Value & ".pdf"
        Sheets("納品書").Select

        If gyouCount > 21 Then
            With ActiveSheet.PageSetup
                .PrintArea = "A1:G" & 38 + gyouCount - 21
            End With
        Else
            With ActiveSheet.PageSetup
                .PrintArea = "A1:G38"
            End With
        End If

        With Sheets("納品書").PageSetup
            .Zoom = False       ' 印刷時の拡大・縮小はしない
            .FitToPagesWide = 1 ' 横は１ページに収まるようにする
            .CenterHorizontally = True    '---水平方向で中央寄せ
            .CenterVertically = True      '---垂直方向で中央寄せ
        End With
        ActiveSheet.ExportAsFixedFormat Type:=xlTypeDF, FileName:=FileName

以上がVBの印刷設定に関するコードになります。
僕はVB初心者ですのでこの中のどれかが原因なのか、またはExcelの書式設定などで１枚に無理矢理出力されるように設定されているのかが分からないので、原因と思われることを教えてください。

Answer 1

.Zoom = False
.FitToPagesWide = 1 '横を1ページ
.FitToPagesTall = False '縦を自動
上記で「全ての列を1ページに印刷」に設定されます

Answer 2

.Zoom = False

.zoomを

.Zoom = 100

でいいと思います。

.Zoom = False ' 印刷時の拡大・縮小はしない

のコメントが適切でないと思います。
zoomをfalseにすると、印刷範囲を1ページに収めて出力する設定となります。拡大・縮小はされます。
100に設定すると、「印刷時の拡大・縮小はしない」です。

以上