エクセル2007 縦長と横長の混在で両面印刷

現在，相対記録で作成したマクロを使っています。
Sub 予定表印刷()
ActiveCell.Range("A1:I53").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PrintOut
End Sub

このあとに，横長で$T$2から$AX$32を絶対番地で印刷し，
かつ両面印刷にしたいのですが，うまくいきません。

縦長と横長の混在はできないのでしょうか。
それとも，印刷範囲が離れているのがいけないのでしょうか。
もしかして，相対指定と絶対指定の混在がいけないのでしょうか・・・。

No.2 ベストアンサー 回答者： keithin 回答日時： 2013/05/07 01:06

＞>シート１・２を「作業グループにして」一度に印刷する

＞と言うのがよく分からないのですが，


マクロ以前の、エクセルの基本的な操作です。
参考：任意の複数のシートを選んで同時に印刷する
http://www.atmarkit.co.jp/fwin2k/win2ktips/849pr …


「新しいマクロの記録」で「シート１，２を作業グループにして印刷する」というのを録ってみると

Sub Macro1()
'
' Macro1 Macro
'

'
　Sheets(Array("Sheet1", "Sheet2")).Select
　Sheets("Sheet1").Activate
　ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

みたいな具合でいいと判りますので、実際に手を動かしてやってみてください。

この回答へのお礼

夜遅くまで，ありがとうございました。

おかげさまで，何とかなりそうです。

お礼日時：2013/05/07 12:15

No.1 回答者： keithin 回答日時： 2013/05/07 00:05

両面印刷で出すには、「１回の印刷で」出力しなければ出来ません。

まず。１枚のシートの中で縦横の混在させるには、ご相談でやられているとおり用紙縦でまず１枚印刷、その後印刷の向きを横に変えて次を印刷と、「２回に分けて」印刷するしか手がありません。
結果してこれでは、両面印刷は出来ないというのが結論です。


じゃぁどうやったら出来るのか、手立てとしては。
シート１を用紙縦の設定にしておいてまず１枚目を作成
シート２を用紙横の設定にしておいて２枚目を作成
シート１・２を「作業グループにして」一度に印刷する
ことで、出来ます。
マクロ自体は「新しいマクロの記録」で簡単に入手できるので、作成してください。


ただし条件としては
１）ご利用のパソコンのウィンドウズの標準のプリンタを、エクセルを起動する前にプリンタのプロパティで両面印刷にして置く事
２）ご利用のプリンタが、縦横混在の連続印刷を上手に両面印刷で受ける性能を持っている事
などがあります。

この回答へのお礼

どうも，ありがとうございます。

横長についても，マクロ記録を取りました。

>シート１・２を「作業グループにして」一度に印刷する
と言うのがよく分からないのですが，
2つのマクロを１つにしてしまうと言うことでしょうか？

これは質問する前にやってみたのですが，２枚目しか印刷されませんでした・・・。


プリンタについては，職場のプリンタ（かなり高級品）を使っていますので，
たぶん大丈夫ではないかと安易に考えています。

お礼日時：2013/05/07 00:14