Step26　送り状を印刷設定しセル位置を請求書控えに戻す

Workbooks(sNewBook).SaveAs Filename:=sSaveFileの前に次の印刷範囲を設定するコードを入力してください。
Workbooks(sNewBook).Worksheets("送り状").PageSetup.PrintArea = _
        Workbooks(sNewBook).Worksheets("送り状").Range("B2:J43").Address
次に上下左右の余白を設定します。
Workbooks(sNewBook).Worksheets("送り状").PageSetup.LeftMargin = _
        Application.CentimetersToPoints(1.2)
Workbooks(sNewBook).Worksheets("送り状").PageSetup.RightMargin = _
        Application.CentimetersToPoints(1.2)
Workbooks(sNewBook).Worksheets("送り状").PageSetup.TopMargin = _
        Application.CentimetersToPoints(3.1)
Workbooks(sNewBook).Worksheets("送り状").PageSetup.BottomMargin = _
        Application.CentimetersToPoints(1.9)
水平方向をページの中央に印刷するようにします。
Workbooks(sNewBook).Worksheets("送り状").PageSetup.CenterHorizontally = True
これで下記プレビュー画面のように印刷設定ができました。

■カーソル位置を設定し請求書控えに戻す

送り状のカーソル位置をA1セルに移動します。
Workbooks(sNewBook).Worksheets("送り状").Range("A1").Select
ブックの初期画面を請求書控えに戻します。
Workbooks(sNewBook).Worksheets("請求書（控え）").Activate