印刷ダイアログを使用する（xlDialogPrint）

最終更新日：2013-06-04

印刷ダイアログを使用する（xlDialogPrint）

入力しやすいように、セルに色をつけている事が多いと思いますが、

印刷時には、ちょっとじゃまな場合もあります。

インク（トナー）も無駄ですしね。

印刷時に色指定を解除して印刷する方法になります。




Sub sample()
　　Dim rtn As 
Boolean
　　ActiveSheet.Copy
　　ActiveSheet.Cells.Interior.Color = 
xlNone
　　rtn = Application.Dialogs(xlDialogPrint).Show

      　　ActiveWorkbook.Close 
SaveChanges:=False
　　Select Case rtn
　　　　Case True
　　　　　　MsgBox 
"印刷されました。"
　　　　Case False
　　　　　　MsgBox "印刷がキャンセルされました。"
　　End 
Select
End Sub

Application.Dialogs(xlDialogPrint).Show
印刷タイアログを表示します。

プリンター等、その都度自由に選択できますので、便利だと思います。

他は、シートをコピーし、色指定を消しているだけです。

上記マクロをボタン等に割り当てれば、便利に使えると思います。

先日、ツィッターで、

ブック印刷時に、特定のシートを印刷したくない、でもプリンターは選択したい、

というツイートを見ましたが、

その場合は、以下のマクロで良いでしょう。




Sub sample2()
　　Dim rtn As Boolean
　　Dim strSht As Variant
　　Dim i 
As Integer
　　strSht = Array("印刷しないシート1", "印刷しないシート2")
　　For i = 
LBound(strSht) To UBound(strSht)
　　　　Sheets(strSht(i)).Visible = 
False
　　Next i
　　rtn = 
Application.Dialogs(xlDialogPrint).Show

      　　For i = LBound(strSht) To 
UBound(strSht)
　　　　Sheets(strSht(i)).Visible = True
　　Next i
　　Select 
Case rtn
　　　　Case True
　　　　　　MsgBox "印刷されました。"
　　　　Case 
False
　　　　　　MsgBox "印刷がキャンセルされました。"
　　End Select
End 
Sub