[[20031007195250]]　『400行くらいのリストを印刷』（nana）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『400行くらいのリストを印刷』（nana） 

 こんばんは。
 こんなことできるのかな？と思いながら、エクセルには魔法の世界があるし、思い切っ
 て質問させていただきます。
　
 50列くらいで400行くらいのデータが入力されているリストがあります。そのリストの
 各1行を各1枚に収まるように印刷をしたいのですが、各行ごとの印刷を1枚に収まるよ 
 うに一括してできる方法というのはあるのでしょうか？今、自分でできることは1行の
 データをSheet2へ行列を入れ替えて貼り付けし、レイアウトを整えることしかできませ
 ん。この方法ですと気の遠くなるような作業が発生します。宜しくお願いします。

いっそのことWordの差込み印刷機能をつかって印刷したほうがいいんじゃ・・・(kuro)

操作方法はこちらを参照ください。⇒　http://allabout.co.jp/study/pcbasic/closeup/CU20030524A/ 

 kuroさん、どうもありがうございます。やってみました。データベースからの挿入でも
 やってみましたが、うまくいきませんでした。
 やはり無理ですよね。ありがとうございました。(nana）


 うまくいかないとは、どんなふうだったのでしょう。どこがうまくいきませんでしたか？
 ５０列４５０行のデータ（関数式、長文文字列などおりまぜ）を試しに作成して読み込み 
ましたがちゃんと差し込まれました。５０列を指定挿入するのも大変ですが、表形式にし 
 てしまえばエクセル感覚でできると思います。
 手順がわからないということでしたら、Wordのバージョンをお知らせください。(kuro)


 (kuro)さん、ゴメンナサイ。横から失礼します。
 エクセルの中だけで処理したいとの思いがあるのかも知れませんね。


 ①気の遠くなるような方法：全部の行に改ページを挿入する。
   最初に２行目をクリックして「改ページ」を挿入。
   次に３行目をクリックして、[Ctrl]+[Y]キーで（前作業の繰り返し）。
   以下同様・
 　　　　　・
 　　　　　・
  しめっくくりは、列51をクリックして「改ページ」を挿入。
  (kazu)さんのガイダンスによれば、改ページは1000まで可能とのこと。


 ②ページ設定を利用する方法：
   天(上)と地(下)の余白幅をコントロールして、
   シートの１行分しか印刷されないようにする。
   当然、各行とも同じ高さにしなければならない。
   使うプリンタに依存しますので、異なるプリンタを使用する場合には
   微調整が必要です。


 単純な方法ですが、いかがでしょうか？
 (EUREKA)


 kuroさん、EUREKAさん、どうもありがとうございます。今、kuroさんにお返事
 書いていてEUREKAさんと衝突してしまいました。以前にも質問していて衝突したことが
 ありましたので、コピーしておきましたので貼り付けます。 


 wordのバージョンはXPです。ファイルは825KBあります。
 手順はWordのデータベースからデータベースの挿入で→データの取り組み
 →データオプション→表のオートフォーマットを指定→データの挿入をしました
 が、パソコンが固まってしまって何度やってもうまくいきませんでした。
 作業ウィンドウからもやってみました。差込印刷はたびたび使っていますので
 手順は間違いはないと思います。こちらは固まらなかったのですが・・・・・。
 今、気づいたのですが、もしかしたら、フィールドが正確に作成されていないのかも
 しれません。
 すみません。リストを確認してから再度チャレンジしてみます 。(nana）


 EUREKAさんの方法もやってみたいと思います。どうもありがとうございます。


 私はXPはもってはいますが不慣れなので、nanaさんのほうがきっとベテランでしょう。
 なのにこんな書き込みは恥ずかしいのですが、nanaさんの書き込みに普段私が差し込み作業で
 使わない単語があるのが気になったものですから、、、。
 私の作業手順を書きますので、ご参考まで。(kuro)


 新規文書を開く＞メニュー＞表示＞ツールバー＞差込印刷　をチェックし、ツールバーを表示させる。
 ツールバー＞データソースを開く＞エクセルファイルを指定する＞表の選択からめざす
 シートを指定する＞ＯＫクリック
 差込み印刷フィールドの挿入＞データベースフィールドにチェックを入れ、
 フィールドをクリック＆Enterをつぎつぎ繰り返す（５０列分）＞閉じる　をクリック
 あとは挿入フィールドとフィールドの間を空けたり、改行したりして体裁を整える。
 必要ならば挿入した全てのフィールドを選択し、メニュー＞罫線＞変換＞文字列を表にする＞Enterし、
 必要な場所に縦罫線を書き込むなどしてフィールドごと区切った表にする。
 ツールバーの「差し込んだデータの表示」をクリックしてデータの入り具合をチェック。 必要な箇所はフォントサイズを調整する。
 各ページをチェックして、これでよければツールバーの「プリンタに差し込む」をクリックして印刷を開始する。


 少しピントが外れているかもしれませんが、私が作ったプリントマン・ラベル版
 を検討してみてはいかがでしょうか。
 リストになっているものをラベル印刷のように（もちろん一件一頁も）
 処理することができます。
 （kazu）
http://www.excel.studio-kazu.jp/DL/DL01.html#Label


 kuroさん、kazuさん、おはようございます。いろいろありがとうございます。
 今日は仕事がありますので、帰宅後にやってみます。又ご報告させていただきます
 ので、宜しくお願いします。(nana）


 こんばんは。nanaです。
 いろいろ教えていただいてありがとうございます。帰宅して早速やってみました。
 EUREKAさん、改ページを挿入してやってみました。この方法ですと確かに1行を
 1ページに印刷できるのですが、1つのセルに入力してある文字を、折り返して全体
 を表示させているので、１つのセルの中に文字が重なりすぎてリストとして見に
 くいかな？と思います。でも、こんな方法もあるのですね。ありがとうございます。


 kuroさん、フィールドをチェックして再度やってみました。やはりフィールドが
 完全ではありませんでした。
 >私はXPはもってはいますが不慣れなので、nanaさんのほうがきっとベテランでしょ
 う。
 とんでもないです！私は習ったことはできるのですが、それだけしかできないのです。
 私が「Wordのデータベースからデータベースの挿入で→データの取り組み」とした
 のは思い切り勘違いでした。フィールドを完全にしたら、データの取り組みは
 できました。でも、差し込み印刷ではなかったのです。ごめんなさい！
 作業ウィンドウから行ったというのは差し込み印刷で、kuroさんのやり方とまったく
 同じです。フィールドを完全にしたら、できました！
 こんなことができるとは思ってもいなかったです。私はExcelの中だけで作業を進める
 ことしか考えられなかったです。Wordの差し込み印刷で作業をするという発想はとても
 私には考え付かないことでした。この方法でしたら、1行ずつを楽に印刷することがで 
 きます。こんなに簡単にできるようになるということがわかって、すごくうれしいで
 す。どうもありがとうございます。
 それとすみまん。もうひとつ質問ですが、この差し込み印刷でフィールド名を表示さ
 せる方法というのはあるのでしょうか？お分かりでしたら教えて下さい。宜しく
 お願いします。


 kazuさん、kazuさんが教えて下さったリストのラベル印刷には明日、チャレンジ
 したいと思いますので、宜しくお願いします。(nana）


 成功したようでなによりです♪（＾＾）ノ


 フィールド名の表示は、自分でワードに入力するしかないですねぇ。
 （差込印刷機能にフィールドの表示印刷機能はないという意味です）
 Excelのフィールド名セルをコピーしてWordにはりつけると、表の状態で張り付きます。
 これがうまくなければ表内で（どこでもいいから中で）クリックし、メニューの
 罫線＞変換＞表の解除をクリックすると　表が解除されます。
 データはフィールドごとタブ区切りになっていますので、これを１つづつ反転（選択）して、
 差込みフィールドの前あたりにドラッグ＆ドロップで移動させることができます。
 これではわかりにくかったりやりにくかったら、最終手段の直接入力があります。
 ではがんばってください。p(^^　(kuro)


 kuroさん、本当に親切に、やさしく解説して頂いて感謝です！
 また、明日の夜にやってみます(^^)!
 この「エクセルの学校」というのはすごいですね。パソコン教室でも教えて頂け
 ないようなことをいとも簡単に、そして、固定観念などなく、自由な発想のもとに
 いろいろ教えて頂ける。そして、教えて下さる方は皆さん、人間味があって、質問者
 の気持ちになって接して下さっている。こんな場所があるのですね。これからも
 自分だけの宝物にしたい気持ちです。
 また宜しくお願いします。では、☆おやすみなさい☆
 (nana）

 kuroさん、こんばんは。nanaです。
 すごいです。できました！
 私は1枚目にフィールド名を貼り付けても、2枚目からも同じ作業をしなければなら
 なくなるのではないかな？と思っていましたが、実際にやってみたら、なんと、1枚目
 だけにフィールド名を入力しさえすればあとは大丈夫なのですね。
 本当に関心してしまいました。固定観念にとらわれていてはいけないのですね。
 とても勉強になりました。どうもありがとうございました。


 今日はとりかかりが遅くなって、kazuさんのラベルへのチャレンジはできませんで
 した。明日、チャレンジです。（nana）

 これは、ただ各行に改ページを入れるだけの問題ではないと思いますので、書くのを
 控えておりましたが、問題が決着したようだし、他の用途で使う人もおられるかも
 知れないので、次のコードを掲載させて頂くことにします。つぎのコードは、A B C 
 ....どの列でもいいですから、ある列を縦に選択して、このコードを走らせると、
 選択したセルの各行に改ページをいれます。


 なおコードは、Alt + F11 を押し、「挿入⇒標準モジュール」で出てきた白紙の欄に
 コピーペーストして下さい。実行は、Alt + F8 から PgBreakEL を選んで、実行を
 クリックして下さい。（通りすがりの者）


 Sub PgBreakEL()
 Dim Cc As Range, I As Long
 For Each Cc In Selection
   ActiveSheet.Rows(Cc.Row + 1).PageBreak = xlPageBreakManual
 Next
 End Sub

 通りすがりの者さん、こんばんは。どうもありがとうございます。
 教えて下さったマクロの実行をやってみました。実行をした後は、何行かは
 改ページが挿入されているようなのですが、2回実行して、2回とも完全に実行され
 ないうちにエクセルとVBAパージが応答しなくなってしまいました。
 「ある列を縦に選択」というところは50列あるリストの列番号を選択しました。
 列番号の 選択ですと65536行まで実行になるので固まるのかと思い、データのある
 範囲の1列のみを選択して実行しても同じでした。どこか実行のしかたが悪かったので 
 しょうか？(nana）


 通りすがりの者さん、どうもありがとうございました。
 確かに、50列あるリストの各1行ずつを一枚に表示させるのは解決してとても喜んで
 います。
 通りすがりの者さんの提示して下さった改ページプレビューから400行が一括して
 1行ずつ挿入されるというのはとても便利だと思いますので、今後の参考にさせて
 頂こうと思います。再度チャレンジさせていただきます。また分らないことがあった
 ら質問させて頂きますので宜しくお願いします。(nana）

 kazuさんが提示して下さったラベルもやってみました。
 いろいろやってみたのですが、成功していません。やってみたのは下記のとおりです。
 ①Labal133のインストール→ファイルを開きました。
 ②Sheet「2×6」と「2×6の設定」をコピーし、「2×6」のシートには挿入する
 リストの行をテキストボックスを列の項目分だけ追加しました。一つのテキストボック
 スに改行して列の項目すべてをやってもうまくいきませんでしたので、列の数だけ
 テキストボックスを追加して1つのテキストボックスには1つの項目をいれました。
 そしてそのシート名は挿入する列×行の数字（50×400）を入力しました。
 ③「2×6の設定」をコピーしたシートには挿入する列と数（50×400設定）とシート名
 をつけました。そして印刷シート名と1ページの列数、行数を挿入するリストの数に
 入力しなおしました。
 ④「Data」シートには挿入するリストを入れなおしました。
 ⑤「50×400」シートのマクロボタンをクリックしますと、「テンプレート用の設定
 『50×400設定』シートがありません」という「プリントマンラベル」のダイアログ
 ボックスがでてきます。私のやり方が間違っていると思うのですが、どのようにした
 よいのか教えていただけますでしょうか？宜しくお願いします。（nana）


 わかりやすいように[50X400]を例にして説明します。


 原理的には[50X400]シートがテンプレート（印刷見本）です。
 そこに作られたテキストボックス内に入力された[氏名]という文字と
 [Data]シートの一番上の[項目名]の[氏名]という文字をマッチングします。


 > 『50×400設定』シートがありません」という
 この問題はシート名の名前の付け方だと思います。
 プリントマンは[50X400]というラベルを印刷する時、設定シートとして
 [50X400設定]という名前のシートを探します。大文字小文字か全角英字などの
 違いではないでしょうか？


 厄介そうでしたらメール
 で送ってもらってもかまいません。
 （kazu）

 こんにちは。kazuさんどうもありがとうございます。
 シート名をチェックしましたが、すべて半角で揃っていました。
 いろいろやってみました。 テキストボックスをコピーするのは、前回行ったのは
 「郵便番号、住所1、住所2、氏名敬称付」のテキストボックスをまとめてコピー
 してから挿入する項目名を入れていきましたので、今回は氏名のテキストボックス
 をすべてコピーしてからその中に挿入するリストの項目名をいれてやってみたり、
  「50×400設定」の欄で1ページ50列、1ページの行が400としていましたので、
 もしかして1行かな？と思い、1ページ50列、1ページ1行で入力しなおしてもやって
 みましたが、結果はすべて同じコメントがでてきました。
 今の私のレベルではこのプリントマンラベルで大きなリストを挿入して作業する
 のは無理なのかな～(;_;)（nana）


 [50X400設定]の中身は印刷するときのラベルのイメージなので、
 1ページ1列、1ページ1行です。


 Dataシートの方からマクロを呼び出していませんか？
 テンプレートの方に丸い図形の[マクロボタン]があると思います、
 なければ、テンプレートの[50X400]シート側から
 [ツール(T)]メニュー→[マクロ(M)]→[マクロ(M)]で[Main01]を
 選択してみてください。


 厄介でしたらメール
 で送ってください。
 （kazu）

 どうもありがとうございます。
 1ページ1列、1ページ1行なのですね。訂正してやってみました。
 >Dataシートの方からマクロを呼び出していませんか？
 というのはDataシートを開いている状態でマクロを呼び出すということでしょうか？
 そうでしたら、それは一度も実行していません。マクロの実行は50×400のシートで
 ボタンをクリックしても[ツール(T)]メニュー→[マクロ(M)]→[マクロ(M)]で[Main01]
 で実行しても結果は同じでした。でも、まだ何か違う操作をしている気がします。


 >厄介でしたらメール
 で送ってください。
 ご親切にありがとうございます。それほどご厄介になることではありませんので、
 もう一度最初からやり直してみたいと思います。（nana）

コメント返信：

[ 一覧(最新更新順) ]

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.