印刷方向、用紙サイズ、印刷倍率の設定をする。

VBAで印刷方向、用紙サイズ、印刷倍率は下記のプロパティを利用することで設定できます。
　・印刷方向　：Orientationプロパティ
　・用紙サイズ：PaperSizeプロパティ
　・印刷倍率　：Zoomプロパティ
印刷方向、用紙サイズについては定数で指定することができます。
倍率については設定できる倍率が10～400(%)となり、この範囲外の数値を指定するとエラーになります。

　●印刷方向の定数

定数	説明
xlPortrait	縦方向
xlLandscape	横方向

　●用紙サイズの定数

定数	説明
xlPaperLetter	レター（21.59mm×27.94mm）
xlPaperA3	A3(297mm×420mm)
xlPaperA4	A4(210mm×297mm)
xlPaperA5	A5(148mm×210mm)
xlPaperB4	B4(250mm×354mm)
xlPaperB5	B5(182mm×257mm)
xlPaperB4	B4(250mm×354mm)

上記にあるのは一例です、他にも”はがき”や”L版”といったサイズも指定できます。

'******************************************************************
'　印刷の倍率、印刷方向、用紙サイズの設定
'******************************************************************
Sub setPrintSetup()
 
    With Sheets("Sheet1")
        '印刷方向の変更（横向き）
        .PageSetup.Orientation = xlLandscape
    
        '用紙サイズの指定（A4）
        .PageSetup.PaperSize = xlPaperA4

        '倍率変更（85%）
        .PageSetup.Zoom = 85 '10～400(%)の範囲で指定
        
        'プレビューで確認
        .PrintPreview
    End With

End Sub