Access VBA質問箱 IV

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

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


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

1963 / 9994

←次へ　｜　前へ→


	【11312】印刷プレビュー時のシャッターバーについて

VBA初心者 - 09/12/24(木) 12:56 -


	引用なし

	パスワード

フォームに印刷プレビューコマンドを設置して、クリックすると
印刷プレビュー画面が表示されるようにしてます。
　Accessのオプション画面で「ナビゲーションウィンドウを表示する」の
チェックは外しているのですが、印刷プレビューの画面が表示
されたときにのみ、シャッターバーが表示されてしまいます。
　このシャッターバー印刷プレビュー時に非表示にする方法がありますでしょうか。
　プレビュー画面を開いた後に「F11」を押せば閉じるのですが、
開いたときに初期値で非表示にする方法を知りたく投稿致しました。
　どうかご教授をお願い致します。

参考までに印刷プレビューボタンのコードです。

Private Sub コマンド70_Click()
On Error GoTo Err_コマンド70_Click

　　Dim stDocName As String
　　Dim MyForm As Form

　　stDocName = "SS_H"
　　Set MyForm = Screen.ActiveForm
　　DoCmd.SelectObject acForm, stDocName, True
　　DoCmd.OpenForm "SS_H", acViewPreview
　　　
　　DoCmd.SelectObject acForm, MyForm.Name, False

Exit_コマンド70_Click:
　　Exit Sub

Err_コマンド70_Click:
　　MsgBox Err.Description
　　Resume Exit_コマンド70_Click
　　
End Sub

844 hits

▼

【11312】印刷プレビュー時のシャッターバーについて VBA初心者 09/12/24(木) 12:56