Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
517 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11312】印刷プレビュー時のシャッターバーについて VBA初心者 09/12/24(木) 12:56 質問[未読]
【11318】Re:印刷プレビュー時のシャッターバーにつ... 小僧 09/12/25(金) 12:08 発言[未読]
【11319】Re:印刷プレビュー時のシャッターバーにつ... VBA初心者 09/12/25(金) 13:11 回答[未読]
【11327】Re:印刷プレビュー時のシャッターバーにつ... 小僧 09/12/28(月) 10:04 回答[未読]
【11335】Re:印刷プレビュー時のシャッターバーにつ... VBA初心者 09/12/30(水) 19:07 お礼[未読]
【11337】Re:印刷プレビュー時のシャッターバーにつ... VBA初心者 09/12/31(木) 14:44 お礼[未読]
【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
【11318】Re:印刷プレビュー時のシャッターバーに...
発言  小僧  - 09/12/25(金) 12:08 -
引用なし
パスワード
   ▼VBA初心者 さん：
こんにちは。

>　　DoCmd.SelectObject acForm, stDocName, True
>　　DoCmd.OpenForm "SS_H", acViewPreview
>　　　
>　　DoCmd.SelectObject acForm, MyForm.Name, False

データベースウィンドウが表示が表示される原因は
一番上の行なのですが、
こちらの操作は必要なのでしょうか。

他フォームをプレビューで開いて
元フォームを表示させるだけなら必要なさそうなのですが…。
【11319】Re:印刷プレビュー時のシャッターバーに...
回答  VBA初心者  - 09/12/25(金) 13:11 -
引用なし
パスワード
   ▼小僧 さん：
▼VBA初心者 さん：
こんにちは。

>データベースウィンドウが表示が表示される原因は
>一番上の行なのですが、
>こちらの操作は必要なのでしょうか。
　他のサンプルソースから参考にしたので正直あまり
意味がわかっていません。
　やりたい操作的には
1.　印刷したいフォームを印刷プレビューで表示させて
　確認して印刷することです。
＊ですので、他のフォーム、テーブル、クエリをナビゲーションウィンドウ
では表示させたくないです。（できれば印刷対象のフォームもナビゲーション
ウィンドウでは非表示にしたいです。）

＊エンドユーザが操作する為、必要がないものは非表示にしたいです。

以上、お手数ですがご教授をお願い致します。

>
>>　　DoCmd.SelectObject acForm, stDocName, True
>>　　DoCmd.OpenForm "SS_H", acViewPreview
>>　　　
>>　　DoCmd.SelectObject acForm, MyForm.Name, False
>
>データベースウィンドウが表示が表示される原因は
>一番上の行なのですが、
>こちらの操作は必要なのでしょうか。
>
>他フォームをプレビューで開いて
>元フォームを表示させるだけなら必要なさそうなのですが…。
【11327】Re:印刷プレビュー時のシャッターバーに...
回答  小僧  - 09/12/28(月) 10:04 -
引用なし
パスワード
   ▼VBA初心者 さん：
こんにちは。

>>>　　DoCmd.SelectObject acForm, stDocName, True
>>こちらの操作は必要なのでしょうか。

> 他のサンプルソースから参考にしたので正直あまり
> 意味がわかっていません。

SelectObject メソッドのヘルプを確認されておりますでしょうか？


構文
式.SelectObject(ObjectType, ObjectName, InNavigationPane)

InNavigationPane:
データベース ウィンドウでオブジェクトを選択するには、True を使います。
【11335】Re:印刷プレビュー時のシャッターバーに...
お礼  VBA初心者  - 09/12/30(水) 19:07 -
引用なし
パスワード
   ▼小僧 さん：
こんにちは。

お手数おかけしています。
　VBA初心者です。
>SelectObject メソッドのヘルプを確認されておりますでしょうか？
　確認しておりませんでした。確認後、
　オブジェクトの選択" アクションを実行するコマンドのようなもの
　と書かれていたので、
　DoCmd.SelectObject acForm, stDocName, Falseとしてチャレンジ
　してみます。
　　現在ACCESSが使用できる環境がないので後日チャレンジさせて
　もらいます。

ご教授ありがとうございました。


>▼VBA初心者 さん：
>こんにちは。
>
>>>>　　DoCmd.SelectObject acForm, stDocName, True
>>>こちらの操作は必要なのでしょうか。
>
>> 他のサンプルソースから参考にしたので正直あまり
>> 意味がわかっていません。
>
>SelectObject メソッドのヘルプを確認されておりますでしょうか？
>
>
>構文
>式.SelectObject(ObjectType, ObjectName, InNavigationPane)
>
>InNavigationPane:
>データベース ウィンドウでオブジェクトを選択するには、True を使います。
【11337】Re:印刷プレビュー時のシャッターバーに...
お礼  VBA初心者  - 09/12/31(木) 14:44 -
引用なし
パスワード
   ▼小僧 さん
　こんにちわ。
VBA初心者です。
　「印刷プレビュー時の・・・」件、
DoCmd.SelectObject acForm, stDocName, Falseと記述したら
解決できました。

　有難うございました。

>お手数おかけしています。
>　VBA初心者です。
>>SelectObject メソッドのヘルプを確認されておりますでしょうか？
>　確認しておりませんでした。確認後、
>　オブジェクトの選択" アクションを実行するコマンドのようなもの
>　と書かれていたので、
>　DoCmd.SelectObject acForm, stDocName, Falseとしてチャレンジ
>　してみます。
>　　現在ACCESSが使用できる環境がないので後日チャレンジさせて
>　もらいます。
>
>ご教授ありがとうございました。
>
>
>>▼VBA初心者 さん：
>>こんにちは。
>>
>>>>>　　DoCmd.SelectObject acForm, stDocName, True
>>>>こちらの操作は必要なのでしょうか。
>>
>>> 他のサンプルソースから参考にしたので正直あまり
>>> 意味がわかっていません。
>>
>>SelectObject メソッドのヘルプを確認されておりますでしょうか？
>>
>>
>>構文
>>式.SelectObject(ObjectType, ObjectName, InNavigationPane)
>>
>>InNavigationPane:
>>データベース ウィンドウでオブジェクトを選択するには、True を使います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
517 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078193
(SS)C-BOARD v3.8 is Free