Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

2015/10/09 2015/10/19

PageSetup.FitToPagesTall プロパティ

PageSetup.FitToPagesTall プロパティを使用して、縦方向に収めるページ数を指定します。これにより、印刷時の拡大率または縮小率が設定されます。値の取得および設定が可能です。バリアント型（Variant）の値を使用します。

【書式】

＜取得＞
object.PageSetup.FitToPagesTall

＜設定＞
object.PageSetup.FitToPagesTall = variant

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
variant ・・・縦方向に収めるページ数を指定します。また、ここに、False を設定した場合、FitToPagesWide プロパティ によって、印刷時の拡大率または縮小率が決定します。

PageSetup.FitToPagesWide プロパティ

PageSetup.FitToPagesWide プロパティを使用して、横方向に収めるページ数を指定します。これにより、印刷時の拡大率または縮小率が設定されます。値の取得および設定が可能です。バリアント型（Variant）の値を使用します。

【書式】

＜取得＞
object.PageSetup.FitToPagesWide

＜設定＞
object.PageSetup.FitToPagesWide = variant

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
variant ・・・横方向に収めるページ数を指定します。また、ここに、False を設定した場合、FitToPagesTall プロパティ によって、印刷時の拡大率または縮小率が決定します。

PageSetup.Zoom プロパティに、印刷時の拡大率または縮小率が設定されている場合、PageSetup.FitToPagesTall プロパティ および PageSetup.FitToPagesWide プロパティ の設定は無視されます。これらのプロパティに値を設定する場合は、PageSetup.Zoom プロパティ に、False を設定する必要があります。

FitToPagesTall プロパティ・FitToPagesTall プロパティ使用例

サンプルVBAソース

　
Sub Sample_FitToPages()
    
    Dim w As Worksheet
    Set w = ActiveSheet

    With w.PageSetup
    
        'Zoom プロパティ（印刷の倍率）を無効
        .Zoom = False
        
        '１ページに収まるように設定
        .FitToPagesTall = 1
        .FitToPagesWide = 1
            
    End With

    '印刷プレビューを表示
    w.PrintPreview

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

　

Sub Sample_FitToPages()

Dim w As Worksheet

Set w = ActiveSheet

With w.PageSetup

'Zoom プロパティ（印刷の倍率）を無効

.Zoom = False

'１ページに収まるように設定

.FitToPagesTall = 1

.FitToPagesWide = 1

End With

'印刷プレビューを表示

w.PrintPreview

End Sub

　

実行結果

- ブック・シートの操作 FitToPagesTall プロパティ, FitToPagesWide プロパティ, PageSetup プロパティ, VBA基本, Worksheet オブジェクト, Zoom プロパティ, エクセルVBA, ブック・シートの操作, 印刷

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ）

シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ） …

: ウィンドウ枠の固定（FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウ枠の固定と解除ウィンドウ枠を固定するには FreezePanes プ …

: 印刷時の改ページ設定（Add,ResetAllPageBreaks）

改ページの追加と解除印刷時に改ページを指定するには、HPageBreaks コ …

: 印刷設定（フッターに画像を指定）LeftFooterPicture,CenterFooterPicture,RightFooterPicture

フッターに画像を表示するには LeftFooterPicture プロパティ、C …

: 印刷設定（ヘッダー・フッターに画像を設定）Graphic オブジェクト

Graphic オブジェクト Graphic オブジェクトは、ヘッダーおよびフ …

: ワークシートの非表示・再表示（Visible プロパティ）

ワークシートの表示・非表示ワークシートを非表示にしたり、非表示にしたワークシー …

: 印刷設定を高速化（PrintCommunication プロパティ）

PrintCommunication プロパティ PrintCommunicat …

: 数式を表示（DisplayFormulas プロパティ）

数式を表示（DisplayFormulas プロパティ）セルに数式が入力されて …

: ワークシートの数を数える（Count プロパティ）

Count プロパティ指定したWorksheets コレクションやSheets …

: ウィンドウの分割（Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウの分割と解除ウィンドウ（ワークシート画面）を分割するには、Split …

PREV: 印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）
NEXT: 印刷の倍率（拡大／縮小）（PageSetup.Zoom プロパティ）