VBA：ユーザーフォーム上から印刷プレビューを実行するとExcelが固まる

Question

前提・実現したいこと

Excel VBAにてフォーム上のボタンにActiveSheet.PrintPreviewを設定し、印刷プレビューを表示させると、プレビューがフォームの後ろに隠れ、さらにExcelが固まります。
Me.Hideを使用して、フォームを非表示にして使用しようかとも思いましたが、フォームが複数開いているため、うまくいきませんでした。
複数のフォームを非表示にする方法など模索しましたが、力及ばず詰んでしまったため質問させていただきます。

フォーム上から印刷プレビューを呼び出したときに、プレビューが複数のフォームの後ろに隠れることなく表示させるにはどのような方法があるでしょうか。印刷後は再び元のフォームに戻れると理想的です。
よろしくお願いいたします。

発生している問題・エラーメッセージ

エラーメッセージはありません。

###フォーム上のボタンから印刷プレビューを表示

Private Sub btnPrint_Click()
　　ActiveSheet.PrintPreview
End Sub

試したコード

複数のフォームが開いているため、うまくいきませんでした。

Private Sub btnPrint_Click()
　　Me.Hide
　　ActiveSheet.PrintPreview
　　Me.Show
End Sub

Answer 1

仕組みによっては二次災害待ったなしですが。

UserForm1.Show vbModeless

使えるようだったらどうぞ。

Comments

[kolobokkule]

回答ありがとうございました。

Answer 2

「試したコード」の方法くらいでしょうかね、対策としては。
プレビューをする時点で開いている画面はわかるでしょうから、開いている全てのフォームを非表示にすればよいかと。

Private Sub btnPrint_Click()
　　Me.Hide
　　UserForm1.Hide
　　UserForm2.Hide
　　ActiveSheet.PrintPreview
　　Me.Show
　　UserForm1.Show
　　UserForm2.Show
End Sub

Comments

[kolobokkule]

回答ありがとうございます。
この方法も試しましたが、呼び出すフォームも複数あるために、場合によって印刷の瞬間に開いているフォームが様々で、.Hideするフォームが存在しない時にエラーが発生してしまいます。
この場合の対処法などはありますでしょうか。

[ttyp03]

UserFormsでインスタンスがあるフォームが取得できると思うので、次のような感じでループで処理したらどうでしょうか。
For Each f In UserForms
f.Hide
Next
プレビュー後も同様にループで回してShowすればいいです。

[kolobokkule]

この場合ですと、f.Hideの時点で「一番手前のモーダルフォームを先に閉じてください」とエラーが発生してしまいました。

[ttyp03]

あー順番を気にしないといけないのか。
面倒ですね。。。

[kolobokkule]

For eachを逆に回せればうまくいくのでしょうか？

[ttyp03]

順番は担保されないような気がするので、逆に回してもダメかと思います。

[kolobokkule]

なるほど、、、もう少し悩んでみます、、、

[ttyp03]

非表示にしたところで結局プレビュー画面が操作できないようなので、印刷機能があるフォームはモードレスで表示しないとダメそうです。

[kolobokkule]

そうなのですか、、、
一つ一つ選択してモードレスにするしかないでしょうか？

Answer 3

印刷専用のフォームを作成し、開いた順に1つずつ非表示とすることにしました。