Excel VBA 印刷プレビュー後の閉じるボタンでフォームを表示
Excel(エクセル)のVBAで、フォームのボタンをクリックして印刷プレビューを行うと
なぜかExcelが固まってしまう。(Xp, Excel2000)
回避策として、以下のようにしたらうまくいきました。
１．フォームを隠す
２．印刷プレビュー
３．プレビューの閉じるボタンでフォームを表示
なぜかExcelが固まってしまう。(Xp, Excel2000)
回避策として、以下のようにしたらうまくいきました。
１．フォームを隠す
２．印刷プレビュー
３．プレビューの閉じるボタンでフォームを表示
Private Sub CommandButton1_Click()
Dim ret As Boolean
'フォームを閉じる
UserForm1.Hide
ret = Worksheets("Sheet2").PrintPreview
'戻り値を判定することで閉じるが押されたかがわかる
If ret = False Then
'フォームを表示
UserForm1.Show
End If
End Sub
Dim ret As Boolean
'フォームを閉じる
UserForm1.Hide
ret = Worksheets("Sheet2").PrintPreview
'戻り値を判定することで閉じるが押されたかがわかる
If ret = False Then
'フォームを表示
UserForm1.Show
End If
End Sub
トラックバック(0)
このブログ記事を参照しているブログ一覧: Excel VBA 印刷プレビュー後の閉じるボタンでフォームを表示
このブログ記事に対するトラックバックURL: http://blog.e-slas.com/weblog/mt-tb.cgi/32
