| |
初心者 さん、IROC さん
こんばんは。
IROC さんのリンクされたサイトはすごいですね！！
これはこれで参考にしていただくとして・・・。
>印刷プレビュー表示時、
>拡大、閉じるボタン以外
>（印刷、余白、設定、改行プレビュー）のボタンを
>機能させなくするにはどうしたら良いのでしょうか？
↑の印刷と改行プレビューボタンは、非表示にならないのですが、
印刷や改行プレビューの機能を無効にする方法ならもう少し簡単な
ＶＢＡで可能ですよ！！
標準モジュールに
'===================================================================
Sub main()
Application.ScreenUpdating = False
ThisWorkbook.exit_chk_init
Do
ActiveSheet.PrintPreview False
If ThisWorkbook.exit_chk = True Then
Exit Do
Else
'MsgBox "印刷と改ページプレビューは使用できません"
End If
Loop
Application.ScreenUpdating = True
End Sub
Thisworkbookのモジュールに
'=================================================================
Private pr_ev As Long
'=================================================================
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If pr_ev > 0 Then
Cancel = True
End If
pr_ev = pr_ev + 1
End Sub
'=================================================================
Sub exit_chk_init()
pr_ev = 0
ActiveWindow.View = xlNormalView
End Sub
'=================================================================
Function exit_chk() As Boolean
If pr_ev > 1 Or ActiveWindow.View = xlPageBreakPreview Then
pr_ev = 0
ActiveWindow.View = xlNormalView
exit_chk = False
Else
exit_chk = True
End If
End Function
これでプロシジャーmainを実行してみて下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
