[ExcelVBA] Application.Dialogs(xlDialogPrint).Show とユーザーフォームについて

Question

[環境] WinXpHomeSP2
       Excel2002SP3

Excelのユーザーフォーム上にあるコマンドボタンをクリックすると、アクティブになっているシートを印刷するプログラムを作成しています。
印刷前に印刷ダイアログを表示し、プリンタの設定およびプレビューを可能にしたいため、
Application.Dialogs(xlDialogPrint).Show
を使用しています。
ユーザーフォームはその直前でいったんHideし、上記コードの直後に再度Showしています。

表示された印刷ダイアログの「プレビュー」ボタンをクリックすると、Hideしたはずのユーザーフォームがプレビュー画面の前面に表示されてしまい、プレビュー画面、ユーザーフォーム画面のどちらのボタンも効かなくなって制御不能となってしまいます。

プレビューしてもユーザーフォームが立ち上がってこなくなる方法を教えてください。

onlyrom · Accepted Answer

再度の登場　onlyromです。

＞UserForm1をいったんHideした後にまたShowするため、※1が実行され
その後は新しくUserForm1が立ち上がったのと同じ動作をします。

Showすれば必ずActivateイベントが発生します。
その処理は、
UserForm_Initializeイベントに書くと拙いのですか？
Initializeイベントであれば、HideしてShowしても
そこを通りませんので実行されません。

絶対Activateイベントに書かなければならないコードであり、
かつ、今回のように場合によっては、Activateイベントのコードを
実行させたくない時は

実行させるかさせないか判断させるための変数を
モジュール変数としてとっておきそれを利用する手もあります。


それから、
＞このUserForm1が閉じられた後、※2を実行してしまうため、エラーになってしまいうまくいきません。

これは、Showの前で、※2を実行すればいいのではありませんか？


'--------------------------------------

　　Dim MyFlag as Boolean

'--------------------------------------
Private UserForm_Activate()

　　If MyFlag = True then Exit Sub

　　　　ーーー処理ーーー

End Sub
'--------------------------------------


Private Sub CommandButton1_Click
　　Dim blResponse AS Boolean
　　　:(帳票出力準備)

●●　MyFlag = True　　●●

　　UserForm1.Hide

　　blResponse = Application.Dialogs(xlDialogPrint).Show
　　　:(帳票出力後始末)
　　If blREsponse Then
　　　　MsgBox "出力終了"
　　End If


▲▲　　　:　(※2)　　▲▲
　　
　　　UserForm1.Show

●●　MyFlag = False　●●


End Sub
'--------------------------------------------------

UserformActivateイベントで何をしてるのか
(※2)　で何をしてるのか分かりませんので
これくらいのアドバイスしかできませんが、

さらに言うと
UserForm.Showの後に、(※2)のように何かの処理をさせるコードを書くことはありません。
書くとすれば、UserFormをYesNoのMsgBoxのように使う場合です。

また上記アドバイスでは、UserFormの使い方が不明でしたので
(※2)とShowを入れ替えていますが、
通常、UserFormが閉じられたときの処理は、
UserForm_QueryClose などに書きます。
　

Activateイベントの処理内容、(※2)の処理内容が分かれば
もっと的確な回答が寄せられるでしょう。

Wendy02 · Answer

修正
割り込み失礼しました。
　　↓
割り込み失礼します。
でした。（^^;

Wendy02 · Answer

こんにちは。

割り込み失礼しました。

Excel2002SP3という条件なら、

>ユーザーフォームがプレビュー画面の前面に表示されてしまい、プレビュー画面、ユーザーフォーム画面のどちらのボタンも効かなくなって制御不能となってしまいます。

私の読み違えでなかったら、それは、Zオーダーの前面に来る来ないは別にして、Modalモード(=ShowModal　または、.Show ） が、Trueにしてあるからではありませんか？　単に、False にすれば、Hide にしなくてもよいと思います。

あえて、UserForm が邪魔というなら、以下のようなコードにすればよいと思います。
ただ、UserForm のプロパティの 「ShowModal : False または、.Show(False)」には変わりありません。

----------------------------------------------------------------------

Private Declare Function CloseWindow Lib "user32.dll" _
(ByVal hWnd As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
　　　　(ByVal lpClassName As String, _
　　　　ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" _
　　　　(ByVal hWnd As Long, _
　　　　ByVal nIndex As Long, _
　　　　ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" _
　　　　(ByVal hWnd As Long, _
　　　　ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" _
　　　　(ByVal hWnd As Long) As Long

Private Const GWL_STYLE As Long = -16
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX As Long = &H20000


Private Sub CommandButton1_Click()
Dim strClassName As String
Dim hWnd As Long
Dim ret As Long
strClassName = "ThunderDFrame" '97:ThunderXFrame"

hWnd = FindWindow(strClassName, Me.Caption)

ret = CloseWindow(hWnd)
Application.Dialogs(xlDialogPrint).Show

End Sub

Private Sub UserForm_Initialize()
Dim strClassName As String
Dim hWnd As Long
Dim lngNewLong As Long
Dim ret As Long
strClassName = "ThunderDFrame" '97:ThunderXFrame"

hWnd = FindWindow(strClassName, Me.Caption)
lngNewLong = GetWindowLong(hWnd, GWL_STYLE)
ret = SetWindowLong(hWnd, GWL_STYLE, _
　　　　　　　　　　lngNewLong Or _
　　　　　　　　　　WS_THICKFRAME Or _
　　　　　　　　　　WS_MINIMIZEBOX)
ret = DrawMenuBar(hWnd)
End Sub


----------------------------------------------------------------------

onlyrom · Answer

何はともあれ、実際のコードをアップしてみてください。

Private Sub CommandButton1_Click()

　●　ここのコードをアップ　●

End Sub

nekoron07 · Answer

Application.Dialogs(xlDialogPrint).Show

の後に

If response = ok Then
　　UserForm1.Show　　　　←ユーザーフォームの名称
End If

とすれば、印刷OKのボタンを押したときにユーザーフォームが現れると思います。

[ExcelVBA] Application.Dialogs(xlDialogPrint).Show とユーザーフォームについて

再度の登場 onlyromです。

修正

こんにちは。

この回答への補足

Application.Dialogs(xlDialogPrint).Show

この回答への補足

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

再度の登場　onlyromです。