|
▼すー さん:
こんばんは。
>あるセルで画面に表示しても特定のセルだけ印刷させない方法ってあるのでしょうか?
>
>具体的例
>
>A1 B1 C1
>エクセル 花子 印
>エクセル 太郎 印
>
>表示画面にはC列は印を入れて
>印刷だけ表示させたくないのです。
新規ブックにて、試してください。
標準モジュールに
'==================================================
Sub サンプルデータ作成()
With Range("a1:c2")
.Value = [{"エクセル","花子","印";"エクセル","太郎","印"}]
End With
End Sub
続いてThisworkbookのモジュールに
'================================================================
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("c:c").Font.ColorIndex = 2
Application.OnTime Now(), "thisworkbook.reset"
End Sub
'=================================================================
Sub reset()
Range("c:c").Font.ColorIndex = 0
End Sub
として、まず、サンプルデータ作成 を実行してアクティブシートに
サンプルデータを表示させてください。
次に印刷プレビューで「印」という字が非表示になっていることを確認してください。
プレビューを閉じてください。
アクティブシートのC列には「印」が表示されていることを確認してください。
|
|