塗りつぶし色なしでワークシートを印刷するには、どうすればよいでしょうか?
Excel では、重要な情報を強調したり、値を分類したり、大規模なデータセットをより見やすくするために、セルのデータにさまざまな色を適用して書式設定することが非常に一般的です。しかし、ワークシートをプリンターに出力すると、下図のように、画面上で表示されている背景の塗りつぶし色や色付きフォントなど、すべての書式がそのまま印刷されてしまいます。

これらの色付き要素を印刷すると、インクやトナーを大量に消費してしまう可能性があり、特にレビュー用や配布用にシンプルな白黒印刷のハードコピーが必要な場合には不向きです。この課題に対応するため、Excel では塗りつぶし色を付けずにワークシートを印刷できる複数の方法を提供しています。これらの方法を使えば、インクを節約しつつ読みやすさを高め、レポートをプロフェッショナルでスッキリとした仕上がりにできます。本記事では、あなたのニーズに最も合った方法が選べるよう、塗りつぶし色なしでワークシートを印刷する実用的なテクニックをいくつかご紹介します。
目次
Excel で塗りつぶし色なしでワークシートを印刷する
Excel の標準機能である印刷設定には、「白黒印刷」オプションが含まれており、塗りつぶし色を無視してすべての内容をモノクロで印刷できます。これは、実際のデータ書式を一切変更せずに、カラー印刷と白黒印刷を素早く切り替えたい場合に、ほとんどのワークシートで活用できる簡単な方法です。ただし、この設定はワークシート全体に適用されるため、特定のエリアだけ色付き書式を維持することはできません。インク使用量を最小限に抑えつつ、シンプルで読みやすい印刷物を作成したいレポート、分析資料、財務書類などに最適です。
白黒印刷印刷オプションの使用方法:
1.印刷したいワークシートをアクティブにしてください。
2.次に、リボンのページレイアウトタブをクリックし、ページ設定グループの右下隅にある小さなページ設定ボタンをクリックします。ページ設定ダイアログボックスが開きます。(下記のスクリーンショットを参照してください。)

3.ページ設定ダイアログで、シートタブに移動し、白黒印刷の横にあるチェックボックスをオンにします。印刷セクション内にあります。(下記のスクリーンショットを参照してください。)このオプションを有効にすると、Excel は背景塗りつぶし、フォント色、罫線の色などすべてのセルの色を無視し、ワークシートを完全に白黒で印刷します。

4.(任意だが推奨)印刷プレビューをクリックし、ページ設定ダイアログで印刷時のワークシートの表示を確認してください。

5.OKをクリックして設定を確定し、通常どおりワークシートを印刷してください。印刷結果には、すべての色付きセルの背景や条件付き書式による塗りつぶしなどの色に依存する機能は含まれず、テキスト、数値、罫線など色以外の書式のみが保持されます。
注:この方法は、ほとんどの標準的な印刷ニーズに迅速かつ簡単に対応できます。ただし、特定のエリアからのみ塗りつぶし色を削除したい場合や、特定のエリアをグレースケールで影付き表示したい場合など、よりきめ細かい制御が必要な場合は、以下に示す他の解決策をご検討ください。
VBA コード - 印刷前に一時的に塗りつぶし色を削除する
ワークシートを完全に塗りつぶし色なしで印刷したい場合がありますが、標準の「白黒印刷」オプションでは要件を満たせないことがあります。特に、特定のエリアにのみこの設定を適用したい場合や、図形やグラフ要素も塗りつぶしなしで印刷したい場合などが該当します。このようなケースでは、印刷前にすべてのセルの塗りつぶし色を一時的に削除し、印刷後に元の状態を復元する VBA マクロを利用するのが効果的です。この方法は高度なカスタマイズが可能で、複雑なワークシートを扱う上級ユーザー、または繰り返し発生する印刷作業を自動化したいユーザーに特におすすめです。
メリット:この方法なら、ワークシートの任意のエリアに影響を与える範囲を自由に選べるうえ、コードをカスタマイズして特定のシートやワークブック機能にも対応可能です。
デメリット:マクロを有効にする必要があり、ユーザーは VBA エディターの操作に慣れていることが求められます。共有ワークブックや厳格な規制環境では、マクロを広範にわたって使用できない場合があります。
1.ワークブックを開き、Alt + F11を押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。VBA ウィンドウで、挿入>標準モジュールをクリックし、新しいモジュールを作成して次のコードを貼り付けてください。
Sub PrintWithoutFillColor()
Dim rng As Range
Dim arrColors() As Variant
Dim i As Long, j As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.InputBox("Select the range to print (leave blank for entire sheet):", xTitleId, Selection.Address, Type:=8)
If rng Is Nothing Then
Set rng = ActiveSheet.UsedRange
End If
' Store the current fill colors
ReDim arrColors(1 To rng.Rows.Count, 1 To rng.Columns.Count)
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
arrColors(i, j) = rng.Cells(i, j).Interior.Color
rng.Cells(i, j).Interior.ColorIndex = xlNone
Next j
Next i
' Show Print Preview
ActiveSheet.PrintPreview
' Restore fill colors
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
rng.Cells(i, j).Interior.Color = arrColors(i, j)
Next j
Next i
End Sub 2コードを貼り付けたら、VBA エディターを閉じてExcel に戻ります。コードを実行するには、Alt + F8を押して「マクロ」ダイアログを開き、PrintWithoutFillColorを選択して実行をクリックしてください。プロンプトが表示されたら、塗りつぶし色なしで印刷したい範囲を選択します。範囲を選択せずに[OK]をクリックすると、シート上の使用済み範囲全体が対象になります。このマクロは選択したエリアから一時的に塗りつぶし色を削除し、印刷プレビューを表示した後、元の色を自動的に復元します。これにより、誤ってデータが失われたり、不要な書式変更が発生したりするリスクを最小限に抑えられます。
ヒント:このマクロを非常に広い範囲で実行すると、数秒かかる場合があります。グラフや図形オブジェクトの塗りつぶし色も削除する必要がある場合は、さらに VBA コードをカスタマイズしてください。マクロを実行または編集する前に、必ず作業内容を保存しておきましょう。
トラブルシューティングとヒント:
- 印刷結果にまだ色が表示される場合は、Excel 外のプリンター設定で「白黒」または「モノクロ」の選択が上書きされていないかご確認ください。
- 紙やインクの無駄を防ぐため、印刷前に必ずドキュメントのプレビューをご確認ください。
- 定期的に白黒印刷を行う必要がある場合は、あらかじめ印刷用としてワークブックのコピーを別途保存することをおすすめします。
まとめ:ニーズに応じて、Excel の標準機能である白黒印刷オプション(ワークシート全体に最適)と、VBA による自動化や一時的な書式変更のいずれかを活用し、塗りつぶし色なしで印刷できます。インク節約、使いやすさ、印刷レイアウトの制御性のバランスを考えて、ご自身のシナリオにぴったりの方法をお選びください。
関連記事:
Excel でタイトル行(最上行)をすべての印刷ページに繰り返し表示するにはどうすればよいですか?
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得