自分がよく使うであろう、全列を1シートに収める形式を対象のシートに反映する。
範囲はrangeObjで指定する。

Public Sub setPrintArea(ByVal sheetobj As Worksheet, ByVal rangeObj As Range)
    With sheetobj.PageSetup
        .PrintArea = rangeObj.Address
        .Zoom = False           '---拡大・縮小率を指定しない
        .FitToPagesWide = 1     '---横方向1ページで印刷
        .FitToPagesTall = False '---縦方向は指定しない
    End With
End Sub