- ベストアンサー
Excelで左側に１ページ目、右側に２ページ目を印刷したい。
過去ログを検索したのですが 希望の回答が得られなかったで、よろしくお願いします。 Excel2000にて、A5サイズの表を２ページ作成しました。 これを、A4横の用紙に 「左側に１ページ目、右側に２ページ目」となるように 印刷したいのですが、どのように設定すれば 良いでしょうか？ （できれば３ページ目以降も同じように印刷したい） ファイル→ページ設定や、プリンタの設定も いじってみたのですが、どうしても 「１ページに１枚」しか印刷できません。 プリンタ設定の「ページレイアウト」に 「１枚に印刷するページ数」を指定する項目が あるのですが、変更しても反映されません。 プリンタはCANONのLBP910です。 同じような環境の方、ご存知の方がいらっしゃいましたら ご回答お待ちしています。
- みんなの回答 （7）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (6)
- imogasi
- ベストアンサー率27% (4737/17070)
ＶＢＡで考えて見ました。 ポイントは例えば、 （１）Ａ１：Ｇ３５を第１ページとし、本来は第２ページに当たるＡ３６：Ｇ７０を、ワークシート表上の右部分Ｈ１：Ｎ３５にコピーする。 そしてＶＢＡからＡ１：Ｎ３５の範囲の印刷起動をかける。 （２）３５＊２のサイクルで（１）を繰り返す。 （３）ページ数は、左フッターに１と２、３と４・・を 印刷する都度ＶＢＡでセットして印刷する。左第１ページと右第２ページの数字印字位置を上手くスペースをいれて、調節する必要があると思い空白列にする。 （４）左余白と表のＡ１：Ｇ３０とＨ１：Ｎ３５（コピー後で）をバランス良く調節するために、Ｈ列は空白列とし、列幅を調節し、Ｉ１：Ｏ３５へコピーすべきかもしれない。 （５）Ａ４横の設定は必須。 （６）フォントサイズや列幅で影響を受けるので、初めは 手探りで調節する必要あり。これが手間がかかる。 行数が少なければ、手作業でコピーしフータを手動で セットの方が早いかもしれない。 コーディング例を上げます。 ＝＝＝＝＝＝＝＝＝＝＝＝＝ 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はサッパリ理解できません・・・。 原因はプリンタドライバが古いせい、と言う 超単純な物だったのです。 お時間取らせてしまって申し訳ないです。
#2です。 わたしも１枚のシートにぎりぎりの表を作ってフッタ付で印刷してみましたが、２枚横に並んで見開きで印刷できました。 紙はA4、用紙サイズもA4です。 訂正があります。このように出すときはうちのプリンターの場合タテ方向でないと横に並びませんでした。 注意点は下にも書いたように、余白はやはり１cmくらい必要であること。 あと、図のように表と表の間がそれなりに空いてしまうことです（差込印刷みたいな感じなのであたりまえかもしれません） □□□ □□□ □□□ □□□ □□□ □□□ □□□ □□□ １ ２
お礼
プリンタドライバを最新の物にしたら、 正常に印刷できました。 どうしてもキレイにレイアウトしたいときは、 以前のように縮小コピーを駆使するのも 良いかも知れませんね。 紙はもったいないですが・・・。
ページ番号がありましたか。 そうすると、A4の半分はたしかにA5ですが、余白が１cmほどしかないぎりぎりの表を作られた場合、フッターもありますので、表をある程度小さくしないとA4の横にははいらないと思います。 通常（用紙サイズを変えずに出す場合は）余白は1cm強は必要です（ページ番号もその内側に）。 あとわたしがよくやるのは、用紙サイズを１回り大きいもの、たとえばA4ではなくてB4やレターなど（ただしプリンターの設定による）をわざと選んで、A4ぎりぎりに出せる場合があります。A4用紙設定がもつ余白を無視するやり方です。 しかしすべてのプリンターで成功するとはかぎらないみたいです。
お礼
ご回答ありがとうございました。 プリンタドライバを最新の物にしたら、 正常に動作しました。 ページ番号を入れる際には、ご回答頂いた方法も 試してみようと思います。
#2ですが、補足しておきます プリンタ設定で１枚にうまく見開きで収まらない場合に、[改ページプレビュー] で見開き状態を１ページとして、A4の横に入れようとしています。 プリンタ側で拡大率の調整が必要かもしれません。 あとシートごとに、手作業で見開きで入れていく場合は、 シートの見開きをマウスで選択して、 [ファイル]→[印刷範囲の設定]で設定してしまうやり方もあります。 どちらかではいるはずです（用紙の横印刷設定はお忘れなく）
お礼
ご回答ありがとうございます。 改ページプレビューで改ページ位置を変更すると、 確かに１枚に２ページ（以上）は入りますが・・・。 すみません、ページ番号は変えたくないんです。 たぶんプリンタ設定の問題ですよね。 マニュアルを見ても、私が今やっている方法で 間違いないみたいだし・・・だけど出来ないんですよねえ・・・。 ちなみに、同じプリンタを使っている別の人は 「A5でそのまま（2枚に）印刷して、２枚くっつけて コピー機でコピーしている」そうです。 そんなあ・・・。
プリンタの印字設定（プロパティ）で集約機能はありませんか？ ２ページを１ページで印字する機能で １ページ／２ページ ２ページ／１ページ とできるかと思います。 うちのプリンタ エプソンなのですがキャノンでも同じ機能あると思います、、
お礼
早速のご回答ありがとうございます。 おっしゃっている「集約機能」は プリンタ設定の「ページレイアウト」に 「１枚に印刷するページ数」を指定する項目が あるので、 これに該当するかと思います。 ただ、最初に書いたとおり、この部分を変更しても 反映されないんですよね・・・。 なんでだーー。 他のプリンタでも試してみます。
お礼
結局、プリンタドライバが古いために うまく動作しなかったようです。 ご指摘の通り、エクセルでは集約機能は 感知していないようですね。 微妙に不便ですよね・・・。