印刷ダイアログを使用する(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 |
このマクロをお好きなボタンに設定すれば完了です。
印刷ダイアログを使用すれば簡単に解決できますね。
同じテーマ「マクロVBAサンプル集」の記事
罫線を簡単に引く(Borders,BorderAround)
マクロの開始・終了(Applicationのプロパティ)
オートフィルター(AutoFilter)
日付のオートフィルタ(AutoFilter)
印刷ダイアログを使用する(xlDialogPrint)
名前定義の一覧(Name)
シートを名前順に並べ替える
数式内の不要なシート名を削除する(HasFormula)
数式の参照しているセルを取得する
増殖した条件付き書式を整理統合する
条件付き書式で変更された書式を取得する
新着記事 ・・・新着記事一覧を見る
Excelシートの複雑な計算式を解析するVBA|VBAサンプル集(2月18日)
VBAクラスの作り方:独自Rangeっぽいものを作ってみた|VBA技術解説(2月16日)
VBAクラスの作り方:列名のプロパティを自動作成する|VBA技術解説(2月14日)
VBAクラスの作り方:列名の入力支援と列移動対応|VBA技術解説(2月11日)
クラスを使って他ブックのイベントを補足する|VBA技術解説(2月6日)
Excelアドインの作成と登録について|VBA技術解説(2月3日)
参照設定、CreateObject、オブジェクト式の一覧|VBA技術解説(1月20日)
VBAでファイルを規定のアプリで開く方法|VBA技術解説(1月20日)
ドキュメントプロパティ(BuiltinDocumentProperties,CustomDocumentProperties)|VBA技術解説(1月19日)
他ブックへのリンクエラーを探し解除|VBAサンプル集(1月15日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.変数とデータ型(Dim)|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.RangeとCellsの使い方|ExcelマクロVBA入門
6.マクロって何?VBAって何?|ExcelマクロVBA入門
7.繰り返し処理(For Next)|ExcelマクロVBA入門
8.とにかく書いて見よう(Sub,End Sub)|VBA入門
9.定数と型宣言文字(Const)|ExcelマクロVBA入門
10.ひらがな⇔カタカナの変換|エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。