Excelで左側に１ページ目、右側に２ページ目を印刷したい。

質問

過去ログを検索したのですが
希望の回答が得られなかったで、よろしくお願いします。

Excel2000にて、A5サイズの表を２ページ作成しました。
これを、A4横の用紙に
「左側に１ページ目、右側に２ページ目」となるように
印刷したいのですが、どのように設定すれば
良いでしょうか？
（できれば３ページ目以降も同じように印刷したい）

ファイル→ページ設定や、プリンタの設定も
いじってみたのですが、どうしても
「１ページに１枚」しか印刷できません。

プリンタ設定の「ページレイアウト」に
「１枚に印刷するページ数」を指定する項目が
あるのですが、変更しても反映されません。

プリンタはCANONのLBP910です。
同じような環境の方、ご存知の方がいらっしゃいましたら
ご回答お待ちしています。

回答No.7

imogasi

ＶＢＡで考えて見ました。
ポイントは例えば、
（１）Ａ１：Ｇ３５を第１ページとし、本来は第２ページに当たるＡ３６：Ｇ７０を、ワークシート表上の右部分Ｈ１：Ｎ３５にコピーする。
そしてＶＢＡからＡ１：Ｎ３５の範囲の印刷起動をかける。
（２）３５＊２のサイクルで（１）を繰り返す。
（３）ページ数は、左フッターに１と２、３と４・・を
印刷する都度ＶＢＡでセットして印刷する。左第１ページと右第２ページの数字印字位置を上手くスペースをいれて、調節する必要があると思い空白列にする。
（４）左余白と表のＡ１：Ｇ３０とＨ１：Ｎ３５（コピー後で）をバランス良く調節するために、Ｈ列は空白列とし、列幅を調節し、Ｉ１：Ｏ３５へコピーすべきかもしれない。
（５）Ａ４横の設定は必須。
（６）フォントサイズや列幅で影響を受けるので、初めは
手探りで調節する必要あり。これが手間がかかる。
行数が少なければ、手作業でコピーしフータを手動で
セットの方が早いかもしれない。
コーディング例を上げます。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub test01()
'列は何列までデータがあるか。H列なら８。７はＧ列
retu = 7
' 1ページは何行か。３５行とする
gyou = 35
'スタート行は第１行とする。
sgyou = 1
pageno = 1
Worksheets("sheet1").Activate
d = Range("A2").CurrentRegion.Rows.Count
MsgBox d
'--------
p = gyou * 2
For i = sgyou To d Step p
Range(Cells(i + gyou, 1), Cells(i + gyou * 2 - 1, retu)).Copy
'第retu列＋１列は空白で空ける。本ケースではＨ列。
Cells(i, retu + 2).Select
ActiveSheet.Paste
'----フーターのページ数設定
s = Space(50) & Str(pageno) & Space(130) & Str(pageno + 1)
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.CenterFooter = ""
.LeftFooter = s
End With
'------印刷
Range(Cells(i, 1), Cells(i + gyou - 1, retu * 2 + 1)).PrintOut
'----ページ数＋２と右側の範囲クリア
pageno = pageno + 2
Range(Cells(i, retu + 1), Cells(i + gyou, retu * 2 + 1)).Clear
Next i
'--------
End Sub

お礼

すみません、わざわざ考えて頂いたのですが、
VBAはサッパリ理解できません・・・。
原因はプリンタドライバが古いせい、と言う
超単純な物だったのです。
お時間取らせてしまって申し訳ないです。