Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34126 / 76807

←次へ　｜　前へ→


	【47896】Re:モーダレスのユーザーフォームと印刷プレビュー画面について

ichinose - 07/3/26(月) 9:15 -


	引用なし

	パスワード

▼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

1 hits

▼

【47895】モーダレスのユーザーフォームと印刷プレビュー画面について saf 07/3/26(月) 4:37