| |
▼saf さん：
おはようございます。
>
>モーダレスのユーザーフォームと印刷プレビュー画面について
>質問があります。
>
>モーダレスのユーザーフォームを表示した状態で
>Excelの印刷プレビューボタン
>(ユーザーフォームから実装しているわけではない）が押下されたとき、
>印刷プレビュー画面にユーザーフォームが残って表示されてしまい、
>実際のシートの印刷部分が隠れて見にくくなり困っています。
>印刷プレビュー画面が表示された場合に
>ユーザーフォームを非表示とする方法はないでしょうか？
消すのは、まあ出来ますけどね！！
Thisworkbookのモジュールに
'===========================================
Private Sub Workbook_BeforePrint(Cancel As Boolean)
UserForm1.Hide
Application.OnTime Now(), "hyouji"
End Sub
標準モジュールに
'========================================================
Sub hyouji()
UserForm1.Show vbModeless
End Sub
userform1をモーダレスで表示した状態で試してみてください。
Excel2002で確認したところプレビュー中は非表示、プレビュー解除後、Userform1
が再表示されました。
この動作は、実際の印刷でもおこります。
尚、本来は、
Private Sub Workbook_BeforePrint(Cancel As Boolean)
UserForm1.Hide 'ここで、本当にUserform1が表示(ロード）されているか
'チェックが必要ですよ！！ 過去ログにあります
Application.OnTime Now(), "hyouji"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
