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

残念ながら簡単に、とはいかないみたいです。 どんな感じにデータが記述されていて、どのように印刷したいのか、がわからないので、随分適当（本当にひっつけるだけ）ですが、単純なマクロを組んでみました。 １）ツール⇒マクロ⇒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 を実行する。 これで全シートの内容がひっついた状態で印刷プレビューが表示されます。 （そこから印刷できます） 宜しければお試しください。