Excel単体で差し込み印刷

質問

皆さん宜しくお願いしますm(_ _)m。

　Excel(2000&2002)で名簿を作成し、これを例えば封筒に印刷したい時は普通、Wordの差し込み印刷機能を利用しますよね。
　ですが僕、どうもこの差し込み印刷機能って嫌いなんです(^^;)。一番の理由はファイル管理問題。２つのファイルを作成し、同一フォルダで管理するのが基本かなと思いますが、ファイル間のリンクが切れてしまったりするのがまず嫌です（笑）。
　それから、暫く放置したら忘れるんですよね(^^;)。今回の名簿ファイルは他人にどんどん引き継いで行くスタイルなので、申し渡しが上手く出来て行くかも不安です。

　そんな訳で、これをExcel単体で実現したいのですが。。。皆さんの中で何か良い知恵をお持ちの方がいらっしゃったなら、貸しては頂けないでしょうか。

　Excelの標準的な印刷機能では実現は難しそうですね(^^;)。やはりマクロを組まないと駄目でしょうか。
　やはりExcel単体で動作する方が美しいとは思うのですが（笑）、Wordの差し込み印刷を快適に管理運営する方法でも結構です(^^;)。そもそも僕の使い方が悪いのかも知れませんし。広い視野からのご意見、ご回答お待ちしてますm(_ _)m。

回答No.3

imogasi · ベストアンサー

Sheet1のＡ・Ｂ・Ｃ列に、氏名・郵便番号・住所の名簿があるとします。Sheet2に下記で封書の表書きを縦書きイメージで作成し、印刷しようとしたとき下記の点で、プログラムが複雑になります。
（１）位置合わせを、行高、列幅で調節せざるをえないが
　　　複雑になる
（２）数字の文字化（エクセルのセルには半角数字になってしまう）の対処
（３）氏名を大きくすると行高に影響し、住所の文字間隔に影響する。
（４）ハイフンに縦文字化
（５）郵便番号枠に当てはめ
（６）町名の改行を途中でしないなどにするなら難しい。
（７）会社の場合の（株）の問題、部の問題
（８）とくに郵便物の種類に合わせて（１）（３）（５）など
（９）縦書き式と横書き式の２種の用意が必要
何種類も用意する必要がある。　
結果としてＶＢＡでの自作は複雑になるのでお勧めできません
。年賀状ソフトなどを利用すべきです。　
下記はフォントサイズと行高・列巾は調節できていません
。また－を縦書き化できていません。骨子はこんな程度と
いう例です。下記は１通分ですが、行をFor Nextで繰り回せば、複数通一度に印刷処理できる。
Sub test01()
Worksheets("sheet2").Range("c2") = Worksheets("sheet1").Cells(2, 2)
'------
i = 1
For j = 1 To 30 Step １
a = Mid(Worksheets("sheet1").Range("c2"), i, 1)
Worksheets("sheet2").Cells(j + 3, 6) = a
i = i + 1
Next j
'--------
i = 1
For j = 1 To 12 Step 2
a = Mid(Worksheets("sheet1").Range("a2"), i, 1)
Worksheets("sheet2").Cells(j + 5, 3) = a
i = i + 1
Next j
j = j + 2
Worksheets("sheet2").Cells(j + 5, 3) = "様"
End Sub

お礼

お答えありがとうございます(^^)。
　詳細な解答で勉強になります。今回の質問のアウトプットシートは、結構こちらサイドの都合が反映させられますので、細かな問題は出にくいようにある程度細工できるんです。教えて頂いた諸問題を考慮してアウトプットシートを改良したいと思います(^^)。

　そしてやはりExcel単体での差し込み印刷は、マクロに頼る方法が最有力なんですよね。・・・僕もそんなような気はしていましたけど、こうして皆さんに解答を頂いてそれが確信に変わってきました。

　このファイルは僕のPC内だけで使用するのでは無いので、マクロを実装するとセキュリティ関係で叱られるのが最大のネック。
　これがあるので躊躇していました。このファイルは他にもたくさんの機能を実装しているのですが、この問題があるので全てマクロを避けて来ました(^^;)。

　その結果、不必要にファイルサイズが大きくなり、また動作も鈍くなってきてまして・・（笑）。ここに来てマクロを使うなら、一から設計し直したらファイルサイズも小さく、動作も軽くなるだろうなぁと思っています。

　他のPCでも、マクロを意識させずにスンナリと受け入れさせる方法って無いですか(^^;)？また、別のスレッドを立てた方が良いのかも知れませんね(^^ゞ。