No.2ベストアンサー
- 回答日時:
マクロでの対応例です。
全頁数、奇数頁左余白、偶数頁左余白(cm単位)を設定して印刷します。
頁単位に左マージンを設定しながら印刷しています。
(他の設定を切り替える場合も同様でしょう。)
下の例では、1頁、2頁・・・と順に印刷しています。
奇数頁のみ印刷→偶数頁を印刷の手順もあるでしょう。
シートのコードウインドウに貼り付けます。(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
この回答へのお礼
お礼日時:2003/02/12 10:59
ありがとうございます。
日頃、あまりマクロを使わないのですがとてもご親切にアドバイスを
下さって感謝です。
ネット環境がしばらくなくって、お礼が遅れてしまいました。
ごめんなさい。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- その他(音楽・ダンス・舞台芸能) チケットに座席番号のみを印刷する方法 4 2023/02/10 11:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordで40字×40行にしたいのです...
-
PDF 余白を無くして用紙いっぱ...
-
【至急!】ワードで文字が偏っ...
-
高校2年論理国語の教科書で習う...
-
Excelの左端(A列)をあけてお...
-
カシオ ネームランド 前後の余白
-
Wordで変更履歴/コメントを印刷...
-
Word2010で余白の外の余白に模...
-
Excelの「検索ウィンドウ(ダイ...
-
PhotoshopでA4サイズにトリミン...
-
ワードの警告メッセージの「印...
-
ワードからPDFに変換して保存す...
-
ヘッダーフッターの非表示
-
wordの2段組の中央の余白の設定...
-
wordの表いっぱいに文字を入れる
-
ワードでヘッダーの幅を変える方法
-
ワードで表を作ると次頁が出来...
-
Word 透明色の指定 できない
-
Excel2000で列の幅をmm単位で設...
-
エクセルのプロットエリア右側...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDF 余白を無くして用紙いっぱ...
-
Wordで40字×40行にしたいのです...
-
wordの表いっぱいに文字を入れる
-
【至急!】ワードで文字が偏っ...
-
カシオ ネームランド 前後の余白
-
ワードの警告メッセージの「印...
-
ワードからPDFに変換して保存す...
-
WORDやEXCELで作ったファイルを...
-
アクセスのフォームで、文字を...
-
wordの2段組の中央の余白の設定...
-
Excelの左端(A列)をあけてお...
-
ヘッダーフッターの非表示
-
PDFを1ページに結合すると余白...
-
wordの文章を印刷したのですが...
-
jpg画像の左側と上側に余白を入...
-
PhotoshopでA4サイズにトリミン...
-
Wordで変更履歴/コメントを印刷...
-
【Outlook】メール本文表示の際...
-
ヘッターフッターが隠れてしまう
-
Excel2013 右側の謎の余白について
おすすめ情報