ExcelVBAでの印刷機能について質問です。

質問

ExcelVBAでの印刷機能について質問です。
背景色が黒でフォントが傾向の黄色・ピンク・水色の表を作成しました。

印刷マクロを検討中なのですが、印刷時のみ書式を変えたいと思っています。
印刷時
背景色：無色（白）
フォント色：黒

これをSelection.Font.Colorや.Interior等で設定するとファイルそのものが変わってしまいます。
印刷設定にのみ背景色やフォント色を適用させる方法はないのでしょうか？

現在のファイルの書式や色を変数に記憶させておき、再度設定という事は考えたのですが、
かなり手間がかかってしまいます。

何か良いアドバイスよろしくおねがいいたしますm(_ _)m

回答No.1

tsukasa-12r · ベストアンサー

シートを丸ごとコピー
↓
コピーした方の書式を変更して印刷
↓
コピーしたシートを削除

というのはどうでしょうか？
これなら

'シートのコピー
Sheets("Sheet1").Select
Sheets("Sheet1").Copy after:=Sheets(1)

'シート全体の書式を「背景色：無地、フォント色：自動」に設定
Cells.Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0

のような感じで簡単にできますけど。

同じブック内にコピーを作って削除すると、そのままだとファイルを閉じるときに「○○○への変更を保存しますか？」という問い合わせが非表示されてしまいますので、それが問題となるようでしたら、別のブックにコピーを作るとかになると思います。

回答No.2

end-u

[ページ設定]で「白黒印刷」にチェックを入れてみてください。
それで事が足りるならマクロ不要かもしれませんね。