|
▼プーさん さん:
こんにちは。
現象確認しました。というか、私も経験ありました。
フォームは、モーダルモードで表示されていますよね?
>標準モジュールに指定したシートの
>印刷プレビューを表示するプロシージャ
>を書きました。
>
>Public Sub User_PrintPreview()
>
> Dim prtArea As String
>
> Worksheets("Sheet1").Activate
> prtArea = ActiveCell.CurrentRegion.Address
> ActiveSheet.PageSetup.PrintArea = prtArea
> ActiveSheet.PrintPreview
>
>End Sub
>
>そして、フォーム上に配置したボタンから
>呼び出しました。
>Private Sub CommandButton1_Click()
me.hide
>Call User_PrintPreview
me.show
>End Sub
>
としてみては?
フォームがひとつだけの時は、上記のように簡単なコードですみますが、
フォームがネスト表示されていたりすると、その全てを非表示にしなければなりません。
|
|