EXCEL 複数シートを１枚に印刷する方法

Question

同じファイルにある複数のシートを１枚に印刷する方法を教えてください。

｜---------
｜シート１ 
｜         
｜シート２
｜
｜シート３
｜---------

シート１のデータの下にシート２のデータを
シート２のデータの下にシート３のデータを というかんじです。

フリーソフトやプリンタ自体の設定でできるかもしれませんが、
EXCEL単体での作業を前提としています。

宜しくお願いします。

D-JM · Accepted Answer

残念ながら簡単に、とはいかないみたいです。

どんな感じにデータが記述されていて、どのように印刷したいのか、がわからないので、随分適当（本当にひっつけるだけ）ですが、単純なマクロを組んでみました。

１）ツール⇒マクロ⇒VisualBasicEditor でマクロ作成画面を開く。
２）挿入⇒標準モジュール で白紙の画面を開く。
３）以下のコードを貼り付ける。
--ここから--
Public Sub BOOKPRT()

    Dim sRow As Long, nRow As Long, eRow As Long
    Dim eCol As Integer, shCnt  As Integer

    Sheets(1).Activate
    nRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
    sRow = nRow
    'データコピー
    For shCnt = 2 To Sheets.Count
        Sheets(shCnt).Activate
        With ActiveSheet.UsedRange
            eRow = .Row + .Rows.Count - 1
            eCol = .Column + .Columns.Count - 1
        End With
        ActiveSheet.Range(Cells(1, 1), Cells(eRow, eCol)).Copy
        Sheets(1).Activate
        Cells(nRow, 1).Select
        ActiveSheet.Paste
        nRow = nRow + eRow
    Next shCnt
    '印刷プレビュー表示。印刷ボタンを押せば印刷できます。
    Sheets(1).PrintOut Copies:=1, Preview:=True, Collate:=True
    '編集結果を元にもどす
    Application.CutCopyMode = False
    Range(sRow & ":65536").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select

End Sub
--ここまで--
４）VisualBasicEditor を閉じる
５）ツール⇒マクロ⇒マクロ で BOOKPRT を実行する。

これで全シートの内容がひっついた状態で印刷プレビューが表示されます。
（そこから印刷できます）

宜しければお試しください。

imogasi · Answer

素人には出来て良さそうと思う課題だが、甘い。
エクセルはいろんな面で「シートが別だと別世界と思え」と小生は感じます。
現実にはそのカタチに無いもの（ルールだけは頭に思い描けるもの）を（設定や指定だけで）印刷することは出来ないと思ったほうがよい。グラフなどでそういう質問が出た場合アリ。
シート１の後にシート２、その後にシート３を継ぎ足した状態を作らないと質問のようなのは出来ない。ＶＢＡでもＰａｇｅＳｅｔＵｐは特定の１つのシートに対して行うようになっている。
ーー
３シートの印刷を１度に行うだけなら、３シートを指定し印刷すれば順次印刷されると思うが。
＝＝＝
ＶＢＡが出来れば、シート２、シート３の表を継ぎ足すのは簡単だ。
それを勉強したら。
＞データを
が曲者で、見出しも含めるのか、実質データ行だけ持ってくるのか？
の点は疑問があるが。

mu2011 · Answer

安直ですが、データをオブジェクト化して貼り付ける方法ですが如何でしょうか。
（１）シート１のデータ範囲をコピー→別シートにshiftキー押下しながら編集→図の貼り付け（又は、図のリンク貼り付け）
（２）シート２・３も同様の操作、後はオブジェクトのサイズ調整を行う
因みに「図のリンク貼り付け」を選択すると、元データ変更時にも反映されます。

EXCEL 複数シートを１枚に印刷する方法

残念ながら簡単に、とはいかないみたいです。

素人には出来て良さそうと思う課題だが、甘い。

安直ですが、データをオブジェクト化して貼り付ける方法ですが如何でしょうか。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング