「エクセルの印刷」シート内で異なる印刷設定かつ指定したページ番号

質問

「エクセルの印刷」シート内で異なる印刷設定と指定したページ番号
をつけたいのですが。わかる方いらっしゃったらぜひ教えてください。
冊子にするのでマージンが左右かわってくるのが原因で一括印刷でき
ません。右にくるリストと、左にくるリストを別に印刷しても、ページ
番号を指定（1.3.5.7.と）できないのでとても困っています。

できればすぐにでも回答を頂きたいです。お願いします。

回答No.2

nishi6 · ベストアンサー

マクロでの対応例です。
全頁数、奇数頁左余白、偶数頁左余白（cm単位）を設定して印刷します。

頁単位に左マージンを設定しながら印刷しています。
　（他の設定を切り替える場合も同様でしょう。）

下の例では、１頁、２頁・・・と順に印刷しています。
奇数頁のみ印刷→偶数頁を印刷の手順もあるでしょう。

シートのコードウインドウに貼り付けます。（Excel97で確認済みです。少量頁で確認して下さい）
Sheet1の例なら、ツール→マクロ→Visual Basic Editor でVBE画面に移り、 表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示します。
プロジェクトエクスプローラのSheet1をダブルクリック。出てきたコードウインドウに下記マクロをコピーして貼り付けます。
↓
Sub LeftMarginChangePrint()
　　Dim pg As Integer 'ページカウンタ
　　Dim Yohaku As Double '左余白

　　Const 全頁数 = 10
　　Const 奇数頁左余白 = 1.5 'cm単位で設定
　　Const 偶数頁左余白 = 3 'cm単位で設定

　　For pg = 1 To 全頁数
　　　　With ActiveSheet
　　　　　　If pg Mod 2 = 1 Then
　　　　　　　　Yohaku = Application.CentimetersToPoints(奇数頁左余白)
　　　　　　Else
　　　　　　　　Yohaku = Application.CentimetersToPoints(偶数頁左余白)
　　　　　　End If
　　　　　　.PageSetup.LeftMargin = Yohaku
　　　　　　.PrintOut From:=pg, To:=pg
　　　　End With
　　Next
End Sub

お礼

ありがとうございます。
日頃、あまりマクロを使わないのですがとてもご親切にアドバイスを
下さって感謝です。
ネット環境がしばらくなくって、お礼が遅れてしまいました。
ごめんなさい。。。

回答No.1

GuruGuru22

１ページごとに印刷設定を変更→１ページ印刷→その繰り返し
というやり方になるかと思います。
データ数が少なければ、手作業でできますが、
ある程度の量のデータがあるのなら、VBA で処理することに
なると思います。

お礼

回答ありがとうございます。
助かりました。
ネット環境がしばらくなくって、お礼が遅れてしまいました。
ごめんなさい。。。