Excel単体で差し込み印刷

質問

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

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

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

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

回答No.1

ka3

繰り返して印刷させる為には、やはり、マクロが必要だと思いますが、「データ入力シート」と「印刷レイアウト設定シート」の二つを用意するのは、如何でしょうか ？
　次の様な手順を繰り返させる（Loop）事で、対処できるのではないでしょうか ？
────────────────────────
Sub Macro1()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[1]C"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Sheet2!RC"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[-1]C"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[-2]C"
Range("A1:D4").Select
Range("D4").Activate
Selection.PrintOut Copies:=1, Collate:=True
End Sub
────────────────────────

お礼

お答えありがとうございます(^^)。
　やはりマクロですよね。実は僕も印刷用シートという発想が良いと思って用意しました。

　現在はこれにドロップダウンを実装し、ひとつずつレコードを切り替えては印刷、という仕組みにまではしているんですね、凄く非効率的ですが(^^;)。

　で、自動化しようと思ったのですが・・・マクロ導入に躊躇する大きな理由としては、Excelのセキュリティを「低」にしないとスンナリ起動しないという事です。
　他人に引き継ぐとき、これが足を引っ張るだろうなぁと思う訳です(^^;)。でも、これしか手が無いならやはり実装したいところですね。・・・どんなものでしょうか(^^;)？