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

質問

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

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

生年月日　お名前　生年月日　お名前　
　　１　　　　Ａ　　　　　４　　　　Ｄ
　　２　　　　Ｂ　　　　　５　　　　Ｅ
　　３　　　　Ｃ　　　　　６　　　　Ｆ
--------------ページ区切り-------------------
生年月日　お名前　生年月日　お名前
　　７　　　　Ｇ　　　　　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マスターできるようにがんばります。
ありがとうございました(^_^)

回答No.6

marsah

強引ですが、
用紙がA4横なら、印刷設定をA5縦にして、プリンタ側の縮小印刷機能で２ページを１枚にまとめる。
用紙がA4縦なら、印刷設定をA6縦にして、プリンタ側の縮小印刷機能２～４ページを１枚にまとめる。
という横着な手もありかも…

回答No.4

yuu200

プリンタの"拡張機能"の中に、"集約"っていうのがあります。これで１ページに２ページ分入れることができます。・・・が、プリンタによって、出来るものと出来ないものがあります・・・

補足

集約機能というのはあるのですが
それを使うと１枚目と２枚目の間が
やはりすごく空いてしまいます(^^;

でもなにかと便利な機能ですよねこれ

回答No.3

bin-chan

lenon204さんの質問は２つに分けて考えたほうが良いのでは？

１．見出しをつけるためには？
２．用紙１ページにデータ２ページ分を印刷するためには？

１．はxaxaさんの回答のとおりでしょう。
２．は、私も同じことをしたかったけど、わからなかったので
　　プリンタの縮小印刷機能を利用しています。
　　（用紙１ページにデータ複数ページを印刷できる機能つき）
　　プリンタのマニュアルでご確認ください。

ではでは。

補足

bin-chanさんのおっしゃるとおりです
見出しは問題無くいけてます。
質問を見やすくしようと思ったんですが
よけいややこしかったですかね？(^^;

問題は１ページに、１、２ページ分のデータを
いれる方法なんです。（縮小とかではなくて）

プリンタのオプションも、いろいろ試してみます

回答No.2

xaxa

こんにちは

ファイル→ページ設定とすすみ、
シートのタブで印刷タイトル（Ｒ）に、
例えば１行目だったら、$1:$1のように、
項目の行を指定してください。

縦長のデータならそれで自動的に、
各ページの一行目に項目行が印刷されます。

回答No.1

goo_0102

計算，集計用とは別に　印刷用のシートを作成すれば　いかがでしょう。

幾つか項目が　たまったら、行替えも「自動」で　したいのでしょうか？

補足

その行替えを「自動」でやりたいのですが
やはりページの設定とかでは無理なんでしょうか

印刷用シートを作成して元シートを参照する方法も試してみましたが。１ページの式を作ったら後のページは同じ式を貼りつけというふうにはゆかず困っています。

↓大元データを参照した式が入っています

１　　 ４ 　　７　　
２↓　５↓　８↓
３　　 ６ 　　９

２ページ目に上の式コピーすると

４　　 ７ 　　１０
５↓　８↓　１１↓
６　　 ９ 　　１２

4.5.6.7.8.9がダブる。
結局全部の改行の式を設定してやらないと
駄目なんです。

もうすこし手順を減らす
うまい方法ありますでしょうか？