[[20061222100544]]　『行列に色を付ける』（苦学生）　ページの最後に飛ぶ

『行列に色を付ける』（苦学生）

　[[20030910025935]]を見て

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Then
        Exit Sub
     End If
    Cells.Interior.ColorIndex = xlNone
    Columns(Target.Column).Interior.ColorIndex = 34
    Rows(Target.Row).Interior.ColorIndex = 35
    Selection.Interior.ColorIndex = 36
 End Sub

　を使わせてもらっています。大変便利です。

 ただ，欲が出てきまして。印刷する時その色は不要なので入力範囲の外に
 置いて印刷していますが，その部分まで印刷するので紙が余分に３枚どいります。
 印刷指定で「現在のページ」にすればよいのでしょうが，それを理解していない
 人たちも使います.
 入力ページに縦横の色の付いたまま，印刷してもその色は
 印刷されないようにはならないものでしょうか。ページの背景に色は付いていませ
 ンが，日曜祭日の日付は赤色を使っています。他の文字は黒色だけなんですが・・・
 （XP）2003です。

 こんにちは。
印刷はエクセルの上にある印刷マークで印刷しているのですか？
もしそうなら
マクロで印刷を設定してﾎﾞﾀﾝ登録してみたらいいのではないでしょうか？
あまり詳しくないので　このくらいしか　分からないです。
すみません。（れいまま）

 ThisWorkbookモジュールに以下のコードを貼り付けてはどうでしょうか。
 (ROUGE)
'----
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("入力ページ").Cells.Interior.ColorIndex = xlNone
End Sub

 （れいまま）さん(ROUGE)さんありがとうございました。
 マクロでの印刷設定は難しそうなので今回 
 (ROUGE)さんの方法でやったらうまくいきました。
 (苦学生）

コメント返信：

[ 一覧(最新更新順) ]

[[20061222100544]] 『行列に色を付ける』（苦学生） ページの最後に飛ぶ

[[20061222100544]]　『行列に色を付ける』（苦学生）　ページの最後に飛ぶ