[[20031007172502]]　『印刷タイトルの逆バージョン』（KANA）　ページの最後に飛ぶ

『印刷タイトルの逆バージョン』（KANA）

どーしても分からないので質問します。「ページ設定」の「シート」タブをクリックすると、「印刷タイトル」で『行のタイトル』と『列のタイトル』の設定が出来ますが、それと同じ要領で『ページの最後の数行』も設定出来ないでしょうか？
ヘッダーとフッターを使うには、ややこしい文章なので。よろしくお願いします。

 (EUREKA)
 ん～ん！　ヘッダー・フッター機能の代替策を講じたいという事なのでしょうか？
 ページごとに、その文章は変わるのでしょうか？

(KANA)
ページごとに同じです。罫線があって、３０行くらい同じ文章をページごとに設定したいので。
同じ行のセルをいくつか使うし、均等割付・センタリング等も設定しますので「フッター」を使うにはちょっと･･･とゆー感じです。何かいい方法はないでしょうか？

 もっとも単純な方法は、
 Sheet1を記入シートとし、
 Sheet2にSheet1を反映させながらその固定文章行を合成する方法。
 印刷はSheet2を出力する。
 なんのことはない、ページ毎に下段30行に固定文章を挿入しているだけですが、
 記入Sheet1では連続行で(シームレスに)入力が可能です。

 Sheet1(記入･入力用)               Sheet2(合成･印刷用)
   A                B      C         A                       B        C
  1                                 1 =IF(Sheet1!A1="","",Sheet1!A1)
  2                                 2
  3                                 3
  ･                                 ･
　･                                 ･
 10________________________________10
 11 →Sheet2 A41 へ                11固定文章　　固定文章
 12 →Sheet2 A42 へ                12固定文章　　固定文章
  ･                                 ･
  ･                                 ･
 40 →Sheet2 A70 へ                40固定文章　　固定文章
 　　　　　　　　　　　　　　　　　　-----------------------改ページ挿入
 以下同じ                          41 Sheet1のA11から

                                   以下同じ　
 (EUREKA)

(KANA)
　EUREKAさん、ありがとうございます。
つまり、固定文章を繰り返し一定の行数分あけて入力していくってことですよね？
一カ所のみ固定文章を作成したら、残りのページ（２ページ以降）は作成せずにすむ方法を望んだのですが･･･。例えば

　　　A 　　　　　　B 　　　　　C 　　

 1　佐藤　　　　電話番号　　住所
     ＜改ページ挿入＞
 2　鈴木　　　　電話番号　　住所
     ＜改ページ挿入＞ 
 3　田中　　　　電話番号　　住所
     ＜改ページ挿入＞
 4　井上　　　　電話番号　　住所
     ＜改ページ挿入＞
 5　岡野　　　　電話番号　　住所
 6 固定文章　　固定文章　　固定文章　　
 7 固定文章　　固定文章　　固定文章
　　・
　　・
　　・
 35固定文章　　固定文章　　固定文章

「Print_Titles」の上に「Print_Area」とゆー感じです。
こんな感じにするのはやはり無理でしょうか？

 (EUREKA)
 貴方のレイアウトですと、入力１行毎に改ページをするのですか？ 
 私が提案したSheet2では以下の通りとなります。

 　　A     　　　B  　　　　C  　　 
 1　佐藤　　　　電話番号　　住所
 2　鈴木　　　　電話番号　　住所
 3　田中　　　　電話番号　　住所
 4　井上　　　　電話番号　　住所
 5　岡野　　　　電話番号　　住所
 6 固定文章　　固定文章　　固定文章　　
 7 固定文章　　固定文章　　固定文章
 　・
 　・
 　・
 35固定文章　　固定文章　　固定文章
  ----------＜改ページ挿入＞-------

 「Print_Titles」は、印刷面で最上段と理解しております。

 あとはご使用のプリンタドライバソフトのスタンプ機能を使うか　　ですね。
 プリントプレビューでは確認できませんけど.....。

 （KANA）
 度々すみません。１人を１枚ずつ印刷したいもので、１人毎に改ページをしてます。
 固定文章をページ毎に･･･ってゆーのは、「印刷ﾀｲﾄﾙ」しかないんでしょうか？
 地道に「フッター」を作り上げていく方が無難ですか？

 こちらの問題もWordの差込印刷で対応すると簡単なようですねぇ。
 なぜExcelに差込印刷機能がないんでしょうね。（←そりゃWordでできることだからか？）
 ひょっとしたらWebMaster Kazuさんのプリントマン・ラベル版で対応可能かもしれませんね。
 使わせていただいたことはまだないんですけど・・（＾＾；（kuro・独り言）

 (EUREKA)
 kuroさん、こんにちは。nanaさんの件ですね。

 閉じてからご質問者の内容のイメージがわきましたよ。

 WebMaster Kazuさんのプリントマン・ラベル版をダウンロードして
 使ってみようとしたら、途中でPCが固まってしまって、私も使えないでおるのです。

 KANAさんへ
 本文があって、住所録データベースから住所・氏名等を引っ張り込んで、
 そこに印刷するというでは....。
 的ハズレでしょうか？
 そうであるならば別な手段のソリューションがありますが。

 (KANA)
 EUREKAさん、kuroさん、何度も申し訳ないです。
 そーです。Wordの差し込み印刷のように出来たらいーなと思ってます。
 住所録データベースをSheet1に作って、そこからSheet2にとばしてます。
 そのSheet2で１人ずつページを作りたいんですが･･･。
 Sheet2に、元となる書類を作って１人ずつ名前を変えて印刷していくのが面倒なもので。
 Sheet1に１人１行で表を作っているので、Sheet2で式をコピーすることが出来ませんよね？
 （１人１枚印刷で、ページの下に固定文章があるから）
 ↓の用にコピー出来ればいいんですけど･･･

 Sheet1　　　　　　　　               Sheet2
   A                B      C         A                       B        C
  1 佐藤        電話番号　　住所　　1 =IF(Sheet1!A1="","",Sheet1!A1)
  2 鈴木        電話番号　　住所    2　固定文章
  3 田中        電話番号　　住所    3　固定文章
  4 井上        電話番号　　住所    4　固定文章
　 ・　　　　　　　　　　　　　　　　　　・
 　・　　　　　　　　　　　　　　　　　　・
 　　　　　　　　　　　　　　　　　　　　＜改ページ＞
 　　　　　　　　　　　　　　　　　　31 =IF(Sheet1!A2="","",Sheet1!A2)
 　　　　　　　　　　　　　　　　　　32 固定文章
 　　　　　　　　　　　　　　　　　　33 固定文章
 　　　　　　　　　　　　　　　　　　　　・
 　　　　　　　　　　　　　　　　　　　　・
 　　　　　　　　　　　　　　　　　　　　＜改ページ＞
 　　　　　　　　　　　　　　　　　　61 =IF(Sheet1!A3="","",Sheet1!A3) 
 　　　　　　　　　　　　　　　　　　62 固定文章
　　　　　　　　　　　　　　　　　　 63 固定文章

 １つ１つ入力しなくちゃいけないんでしょうか？
 固定文章で使う行数は、ページ毎に決まっているので、何らかの方法で連続した式をコピーしていけないものでしょうか？
 長々とすみません。

 Sheet2のA1に　=IF(Sheet1!A1="","",Sheet1!A1)　と入れ、これをフィルハンドルを使って
 下方にコピーするとセル番号は連続して増えますね。
 この各行の間に固定文章をセル＆改ページ挿入していくといいのでは？。(kuro)

 住所録はどのくらいの行数なのですか？
 50行？　500行？　1000行くらい？　もっと沢山？
 文書に住所録からデータを引っ張ってきて合成し、
 印刷したら、また次の住所データを....
 という按配に、マクロボタンとスピンボタンを使って自動的にやらせる
 方法ではいかがですか。　使う関数は=VLOOKUP()です。
 ルーティン業務ならなおさら自動化したほうがよろしいかと。

 (EUREKA)

 以前、必要に迫られて同様な感じでﾏｸﾛを作った経験があり、
 Sheet1　ﾃﾞｰﾀｼｰﾄ　として、ﾃﾞｰﾀｼｰﾄの最上行を"作業用の行"にします。
 Sheet2　印刷ｼｰﾄ　として、A1に　=IF(Sheet1!A1="","",Sheet1!A1)･･等と整えて
 Sheet1　ﾃﾞｰﾀ１行分を"作業用の行"にコピー→印刷ｼｰﾄで印刷→ﾃﾞｰﾀ行に"印刷済み"→
 次のﾃﾞｰﾀ１行分を･･･を繰り返すという感じではどうでしょう？
 そのﾌｧｲﾙが無くて、具体的でなくて申し訳ないですが･･･　　（kobi)

皆さん、なんとか非マクロで解決してやろうという気迫を感じまして、ぼくも少し考えてみましたが、やはり非マクロで完全自動化は無理なようですね。ページ毎に少なくともクリックするとかしないと、次々と刷ってはくれないようです。

ちょっと癪ですが、仕方なくマクロを考えてみました。

次のコードは、まず１ページ目に刷りたい一行めのセルを選択して、このマクロを起動して下さい。（例えば刷る内容が、G1:G10 だったら、G1:G10 を選択して下さい。）マクロは、選択されたセルを次々と print_area のセルにコピーし、それを印刷します。

その後、選択エリアを、その形のまま一行下へ下ろし、同じことをやります。選択エリアの最左端のセルが空白だったらそこで印刷エリアの終わりと解釈し、仕事を止めます。

print_area は（つまり印刷範囲の設定は）一行の空白行（これをプリントバッファとして使います）につづいて、フッターとなるセル群を含めて設定して下さい。先にも書きましたように、マクロは、このプリントバッファに印刷すべきデータをコピーし、印刷します。フッターは何行あっても構いません。内容の方は１行と言うことだったので、1行しか考えていません。

print 諸設定は、普通にプリントする時のようにやって下さい。

印刷を途中で止めるときは、Esc キーを押し続けて下さい。

 Sub FdHd()
 Dim Cl As Long, Cc As Range
 Do
  Cl = 1
  For Each Cc In Selection
    Range("print_area").Cells(1, Cl) = Cc
    Cl = Cl + 1
  Next
  If Range("Print_area").Cells(1, 1) = "" Then Exit Do
  ActiveSheet.PrintOut Preview:=True
  Selection.Offset(1).Select
 Loop
 End Sub

上のコードではプリントプレビューしかしません。実印刷をするためには、Preview:=True を、Preview:=false に書き換えて下さい。実は当家にはプリンターがないので、実印刷テストができないのです。（通りすがりの者）

しかし、内容が下で、フッター部分が上にきていても、文章や表現の工夫で、上手にやれませんか。ぼくは、まずその工夫が一番にお勧めです。フッターじゃなくヘダーでも、工夫でうまく体裁付けられるのでは…？　（通りすがりの者）

 （通りすがりの者)さんの結論が最も現実的ですね。
 あんまり突っ込んで鋭角的に論じても、フッと角度をかえた思考の方が
 スマートだったりして。「押してだめなら引いてみな」的な解決策もアリですね。
 (EUREKA)

 > WebMaster Kazuさんのプリントマン・ラベル版をダウンロードして
 > 使ってみようとしたら、途中でPCが固まってしまって、私も使えないでおるのです。

 問題の作者ですが、ダウンロードして シート2X6 で丸をクリックして実行しても
 ハングするのでしょうか？情報をいただけるとありがたいです。
 私の環境 WindowsXP Office2002では問題なく動きます。
（kazu）

 (KANA)
 皆さん、色々なやり方を教えてくれてありがとうございます。
 まだ詳しく読んでませんが、全部のやり方でやってみようと思います。
 EUREKAさん、住所録は100前後です。少ないですが、定期的に作成・編集するファイルなので、
 楽なやり方があればな～っと思ったもので。 
 では、今からやってみます。ホントにありがとうございましたm(_ _)m

 プリントマン・ラベル版　を　旧版 LabeL132.exe　の方で試用してみました。
 シート2X6　　シート2X5　　シート2X4　　共　丸クリックで
 [Internal Error 3776 From USText BoxSet] の警告ダイアログが出るようです。

 コードプロテクションされてないのが嬉しいですね。
 Win98  Excel2000　　（jun53）

 こちらでもWin98のExcel2000で試しましたが、問題ありません。
 ここはテンプレートを見本にして、リストデータの内容でTextBoxを生成
 するところです、ダウンロードしたままなら問題ないと思うのですが。

 > コードプロテクションされてないのが嬉しいですね。
 昔からパスワードはあまりかけていません。
 最後の整備（整美？）をしていないので、きれいなコードになっていません。
 あまり、追求しないでください。
（kazu）

 あれから、全て削除して再 DL し、解凍・保存場所もいくつか変えてみましたが結果は同じでした。
 上記症状の他に、直接 [Main01を選択して] 実行すると
 [テンプレート用の設定『Sheet9設定』シートがありません] のメッセージが出ます。
 アプリの自動修復もやりましたが変化無しで、どうも私個人の環境不具合の様です。
 報告が質問みたいになりましたが、このあと自分で出来る事を調べてみます。ありがとうございます。

 追求の件ですが・・・？？
 わたしは重箱の隅をつつく事はいたしませんので、どうぞご安心下さいませ。　　（jun53）

コメント返信：

[ 一覧(最新更新順) ]

[[20031007172502]] 『印刷タイトルの逆バージョン』（KANA） ページの最後に飛ぶ

[[20031007172502]]　『印刷タイトルの逆バージョン』（KANA）　ページの最後に飛ぶ