Excel VBAのFitToPagesTallプロパティについて

Excel VBAのFitToPagesTallプロパティは、ページ設定に関連するプロパティで、ワークシートの高さを指定したページ数に収まるように調整します。

FitToPagesTallプロパティの基本的な使用方法

FitToPagesTallプロパティは以下のように使用します:

    Worksheets("Sheet1").PageSetup.FitToPagesTall = 1

上記のコードでは、「Sheet1」のページ設定を変更し、プリントアウト時にワークシートが1ページの高さに収まるように設定しています。

ただし、実行時には下記のサンプルにあるようにZoomプロパティをFalseに設定する必要があるので注意してください。

FitToPagesTallプロパティのサンプルコード

以下に、このプロパティを活用した簡単なSubプロシージャを示します。

    Sub AdjustFitToPagesTall()
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Sheets("Sheet1")

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

        ws.PrintOut Preview:=True
    End Sub

このサブプロシージャは、「Sheet1」のページ設定を変更し、ワークシートが印刷時に1ページの高さと幅に収まるように設定します。そして、PrintOutメソッドを使用して印刷プレビューを表示します。

注意点

FitToPagesTallプロパティに設定する値は、正の整数である必要があります。また、ZoomプロパティをFalseに設定することで、FitToPagesTallプロパティとFitToPagesWideプロパティの設定が正しく反映されます。

まとめ

FitToPagesTallプロパティは、Excel VBAでワークシートのページ設定を制御する際に重要な役割を果たします。このプロパティをうまく活用することで、プリントアウトの結果を自在にコントロールすることが可能になります。