エクセルで縦長のデータを紙の無駄なく印刷

質問

生年月日　お名前　　　　　　　★↓紙が無駄★
　　１　　　　Ａ
　　２　　　　Ｂ
　　３　　　　Ｃ
--------------ページ区切り-------------------
　　４　　　　Ｄ
　　５　　　　Ｅ
　　６　　　　Ｆ
--------------ページ区切り-------------------
　　７　　　　Ｇ

★↑のようなデータを★
★↓のように自動で折り返して印刷★

生年月日　お名前　生年月日　お名前　
　　１　　　　Ａ　　　　　４　　　　Ｄ
　　２　　　　Ｂ　　　　　５　　　　Ｅ
　　３　　　　Ｃ　　　　　６　　　　Ｆ
--------------ページ区切り-------------------
生年月日　お名前　生年月日　お名前
　　７　　　　Ｇ　　　　　10　　　　Ｊ
　　８　　　　Ｈ　　　　　　　　↓ずーっと続く
　　９　　　　Ｉ

・質問は上記の図のとおりです
　項目名はヘッダーでなんとかなるのですが
　データを折り返す方法がわかりません。
　なにか上手い方法ございましたら
　アドバイスお願いいたします。
　宜しくお願いします。

回答No.5

nishi6 · ベストアンサー

会社でよくこのようなことができないか聞かれます。手っ取り早いのがAccessでExcelのデータをインポートし、詳細部を作り、ページ設定→レイアウト→列数で指定の列数にして印刷します。ただ、ヘッダー、フッタについては見栄えのいいレポートとはいえないかもしれません。
さてExcelでの解決方法ですが、私は、データを入力したシートとは別に印刷用シートを作成しマクロで印刷しています。下記がそれです。条件を説明します。
１．Sheet1のA1、B1に"生年月日"、"お名前"の表題が入力されていて、データは2行目から入力されていると仮定しています。
２．印刷する表はSheet2に作成し、その縦データ行数をPRTrow、その横データ組数をPRTcolにセットしてください。このマクロは質問にある、縦3×横2を想定しています。
３．また、Sheet2の縦3×横2の範囲には、"pArea"の範囲名をつけてください。
４．Sheet2からこのマクロを実行します。今はプレビューです。PrintPreviewをPrintOutにすれば印刷します。
印刷の形を違えるにはCellsの座標を修正してください。
入力データ数から印刷ページ数を求め、各データに対する印刷部分の座標を求め印刷しています。人が転記し仕上げていくような感覚です。

Public Sub Insatu()
Dim rg As Range 'データの基準位置
Set rg = Worksheets("Sheet1").Range("A1")
Dim pArea As Range '印刷データ部分
Set pArea = Worksheets("Sheet2").Range("prtArea")
Dim Datanum As Long 'データ数
Dim PRTrow As Integer '1頁行数
Dim PRTcol As Integer '1頁列数(データの組数)
Dim modePage As Integer '1頁印刷件数
Dim maxPage As Integer '最大印刷頁
'
Dim pgCot As Integer '頁カウンタ
Dim yokoCot As Integer 'カウンタ(印刷の横)
Dim tateCot As Integer 'カウンタ(印刷の縦)
Dim pINDEX As Long 'データは何行目か
'
Datanum = Worksheets("Sheet1").UsedRange.Rows.Count - 1
PRTrow = 3 '***これをセットする***
PRTcol = 2 '***これをセットする***
modePage = PRTrow * PRTcol
maxPage = Int((Datanum - 1) / modePage) + 1
'
For pgCot = 1 To maxPage
For yokoCot = 1 To PRTcol
For tateCot = 1 To PRTrow
pINDEX = pINDEX + 1
pArea.Cells(tateCot, (yokoCot - 1) * 2 + 1) = rg.Offset(pINDEX, 0)
pArea.Cells(tateCot, yokoCot * 2) = rg.Offset(pINDEX, 1)
Next
Next
ActiveSheet.PrintPreview '.PrintOut
Next
End Sub

お礼

返事が遅れてしまいってすいませんでした。

Accessから印刷は、おもいつきませんでした
見栄えはともかく、便利ですね。

EXCELのほうは、VBAを使ってるんで
理解するのにちょっと勉強しないと駄目ですね(^^;
いい機会なんで、VBAマスターできるようにがんばります。
ありがとうございました(^_^)