|
▼ハチ さん:
ありがとうございました。
別トピックを立てたほうがいいと思いますが、
図々しく質問しても良いでしょうか?
テンプレートファイルを作っていろいろなマクロ処理し、
そのテンプレートファイルの中の4枚のシートをコピーして
保存後、特定の数人に添付ファイルで送る操作を毎月しています。
(今回の質問もその処理のうちの一つです)
そこでですが、印刷マクロ(モジュール)も添付ファイルに
コピーして送ることは出来ますか?
ボタンを押したら各シート一度に印刷できるようにしたいのです。
お分かりでしたらアドバイス頂けると助かります。
現在のコピー部分のコード↓
Dim myfolder As String, mycode As String
Const mypath As String = "\\test\"
With Sheets(Array("abc", "def", "ghi", "jkl"))
.Copy
End With
Dim foldnm As String
myfolder = Sheets("abc").Range("D2").Value
mycode = Sheets("def").Range("E2") & "-"
mycode2 = Sheets("ghi").Range("F2")
ActiveWorkbook.SaveAs Filename:=mypath & myfolder & mycode & mycode2 & ".xls"
ActiveWorkbook.Close
宜しくお願いします。
|
|