|
▼an さん:
>▼ハチ さん:
>テンプレートファイルを作っていろいろなマクロ処理し、
>そのテンプレートファイルの中の4枚のシートをコピーして
>保存後、特定の数人に添付ファイルで送る操作を毎月しています。
>(今回の質問もその処理のうちの一つです)
>そこでですが、印刷マクロ(モジュール)も添付ファイルに
>コピーして送ることは出来ますか?
>ボタンを押したら各シート一度に印刷できるようにしたいのです。
>お分かりでしたらアドバイス頂けると助かります。
Excel2002以降はVBprojectの操作は、基本的にはできません。
印刷モジュールを記載済みのテンプレートを作って
そこにコピーしてはどうでしょうか?
>With Sheets(Array("abc", "def", "ghi", "jkl")).Copy
テンプレ上には、Sheet 1枚にしておいて、
Sheets(Array("abc", "def", "ghi", "jkl")).Copy Before:= _
Workbooks.Add(Template:="ここにテンプレート名").Worksheets(1)
WorkSheets(1).Delete
AddしたタイミングでActiveなBookが切り替わる(試してないんですが・・)かも
しれませんからSheets(Array("abc・・ の前に
オブジェクト名(ThisWork. など)を入れておいたほうがいいかも知れません。
|
|