No.2
- 回答日時:
会社で同様なことを行っていますが機能だけでは困難なような気がします。
1772(QNo.65628)「エクセルで縦長のデータを紙の無駄なく印刷」のANo.#5で回答していますが、印刷用のシートを作れば問題なくできそうですね。会社ではページの下部にページ計や区分の小計を表示したり、最終ページのみに総計を枠の中に表示してくれとか依頼がありこの質問のようなことをやっています。
印刷シートには行タイトルとページの下部には指定されたデータをセットし、内部の明細行はマクロでデータを送り込んでいます。
1772のANo.#5のマクロはそのままにして、ページの下部をセットすればいいと思います。不明な点があれば補足して下さい。
この回答への補足
ありがとうございます。
しかし、ふだん初歩的な機能のみを使っているので
お恥ずかしい話しですがマクロって何?って感じです
もう少しわかりやすくお願いできないでしょうか?
それとも、初心者にはやっぱり難しいのでしょうか…
No.3ベストアンサー
- 回答日時:
このような表を想定してみました。
手順を追って試してみてください。<Sheet1>データが入力されているシート <Sheet2>印刷用のシート
A B C D A B C D
1 項目1 項目2 項目3 項目4 11 ***×××の明細表***
2 AA A1 1 101 12 項目1 項目2 項目3 項目4
3 AB A2 2 102 13 AA A1 1 101
4 AC A3 3 103 14 AB A2 2 102
5 AD A4 4 104 15 AC A3 3 103
: ┌─────────┐
97 ZX A9 97 197 16 │ページ計 3件 │
98 ZY A9 98 198 ├───┬─────┤
99 ZZ A9 99 199 17 │確認印│ │
└───┴─────┘
18 1/33
1.表のデータ列は4列あって、印刷は1頁に3行と仮定します。(変更できます)
2.表題部分と頁の下部を作成してください。
3.上の例でいえばSheet2のA11からD18が印刷範囲になります。
4.Sheet2のセル範囲A13:D15に範囲名pAreaを付けておきます。
5.フッタに頁を印刷するために18行目の任意のセルに範囲名pPageを付けておきます。
6.下のマクロをコピーして標準モジュールに貼り付けて下さい。
Const Prow = 3・・・1頁に印刷する行数
Const Pcol = 4・・・1頁に印刷する列数 を実際のシートからセットして下さい。
標準モジュールはメニューからツール→マクロ→Visual Basic Editor で
VBE画面を起動して下さい。
それからVBE画面で挿入→標準モジュールとします。
7.シートに戻って ツール→マクロ→マクロ でInsatu を実行します。
今は印刷プレビューです。PrintPreview→PrintOut とすれば印刷します。
Public Sub Insatu()
Dim rg As Range 'データの基準位置
Set rg = Worksheets("Sheet1").Range("A1")
Dim pArea As Range '印刷データ部分
Set pArea = Worksheets("Sheet2").Range("pArea")
Const Prow = 3 '***これをセットする***
Const Pcol = 4 '***これをセットする***
Dim modePage As Integer '1頁印刷件数
Dim maxPage As Integer '最大印刷頁
'
Dim rw, cl, pgCot As Integer '行、列、頁カウンタ
maxPage = Int((Worksheets("Sheet1").UsedRange.Rows.Count - 2) / Prow) + 1
For pgCot = 1 To maxPage
For rw = 1 To Prow
For cl = 0 To Pcol - 1
pArea.Cells(rw, cl + 1) = rg.Offset((pgCot - 1) * Prow + rw, cl)
Next
Next
Range("pPage") = pgCot & "/" & maxPage
ActiveSheet.PrintPreview '.PrintOut
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- スーパー・コンビニ 「コンビニで エクセルをプリントアウト」することができますか? 8 2022/06/16 15:54
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 白黒印刷で白線を印刷...
-
エクセルで白紙ページを消す方...
-
エクセルを最初からA4の大きさ...
-
印刷範囲指定した部分でのヘッ...
-
エクセルでプライスカードを作...
-
下の部分をカットして印刷
-
エクセルで印刷するとき、連番...
-
エクセルから帳票形式に差込印...
-
数式による空白を無視して印刷...
-
Excel 複数のシートの印刷順の...
-
パソコン、エクセルに詳しい方...
-
エクセルの全シートをPDFにでき...
-
エクセルの印刷範囲指定について
-
エクセルの表の印刷について複...
-
エクセルのセルのパターン印刷
-
エクセルだけ印刷しても白紙です。
-
セルに印刷日時を残したい
-
エクセルをメールに添付した時
-
Excelで印刷すると、ルビがずれ...
-
エクセル 同じシートで印刷ペ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで謎の2枚目が印刷される
-
エクセルで白紙ページを消す方...
-
エクセル 同じシートで印刷ペ...
-
Excel 複数のシートの印刷順の...
-
差込印刷で郵便番号のハイフン...
-
数式による空白を無視して印刷...
-
エクセルだけ印刷しても白紙です。
-
エクセルから帳票形式に差込印...
-
エクセルを最初からA4の大きさ...
-
エクセル 2upできません。
-
エクセルで空白の部分を印刷範...
-
B5縦で作ったエクセル文書をA4...
-
エクセルで印刷するとき、連番...
-
Excelで印刷すると、ルビがずれ...
-
エクセルの印刷範囲の自動変更...
-
エクセルの長い表を3列で印刷...
-
エクセルの全シートをPDFにでき...
-
VBAでホルダー内のPDFを一括印...
-
EXCELで段組みできますか?
-
コマンドプロンプトからEXC...
おすすめ情報