エクセルマクロで条件のシートを印刷する方法

質問

エクセルマクロで条件のシートを印刷する方法を教えてください

初め、目的のシートを作成する為の条件がセルに入力しているシート（以降：条件シート）があり
マクロで条件シートから情報を吸い上げて情報に沿ったシート（以降：結果シート）を複数作成します。
ここでは条件シートが複数存在しています。
結果シートを作成する為の条件と作成するシート数はその都度違います。
結果シートを作成する際は前回に作った結果シートを全て削除してから作っています。
条件シートのシート名に「●」を入力しておいて、「●」が含まれていないシートを削除するようにしています。

ここで質問になりますが、作成した全ての結果シートだけを印刷する方法を教えていただけないでしょうか
方法としては「●」が含まれていないシートを全て印刷するという命令にしたいのですが。

ご教授お願いいたします
エクセル2003を使用しています。

回答No.1

DOUGLAS_

＞条件シートのシート名に「●」を入力しておいて、
＞「●」が含まれていないシートを削除するようにしています。

　これは マクロ で行なっていないのですか？

Dim mySh As Worksheet
Application.DisplayAlerts = False
For Each mySh In ThisWorkbook.Worksheets
　If InStr(mySh.Name, "●") = 0 Then mySh.Delete
Next
Application.DisplayAlerts = True

　同様に
＞方法としては「●」が含まれていないシートを
＞全て印刷するという命令にしたいのですが。

Dim mySh As Worksheet
For Each mySh In ThisWorkbook.Worksheets
　If InStr(mySh.Name, "●") = 0 Then mySh.PrintOut
Next