Microsoft Access Club >RunCommand 解説 >このページ >次項 < 前項  サイト内検索


acCmdPrintPreview : Access RunCommand



この定数を用いると、印刷プレビューを表示させる ことができます。イミディエイト画面上、フォーム上のコマンドボタン、ツールバーからといろいろと利用できます。

 

'Functionプロシージャは、VBE画面の標準モジュール欄に記述してください。

Function RunCommandMenu()

    On Error GoTo エラー
    
    DoCmd.RunCommand acCmdPrintPreview
    
    Exit Function
    
エラー:
    'エラーを分岐。
    If Err.Number = 2046 Then
        MsgBox Err.Description
    ElseIf Err.Number = 2501 Then
        MsgBox Err.Description
    Else
        MsgBox "予期せぬエラーが発生しました。: " & Err.Number
    End If
    
    End
End Function
 
'サンプルプロシージャは、フォーム上のコマンドボタンをクリックし処理を実行する設定です。
Private Sub Cmボタン_Click()

    Call RunCommandMenu
    
End Sub
 
  • この定数を用いるときに注意することは、「どのオブジェクト」なのかをVBA内に記述できない点です。
  • 例えば、ツールバーに配置した場合、データベースウィンドウでアクティブ状態になっている、オブジェクトが優先されます。
  • イミディエイト画面上で実行する場合、データベースウィンドウ上でオブジェクトが選択されている状態(灰色)でなければエラーとなります。
  • 立ち上がったプレビューは他のファイルの後ろに隠れることがよくあります。続けて、実行するとエラーメッセージが表示されますので注意して下さい。
  • フォームのコマンドボタンで実行させる場合は、そのフォーム自体のプレビューモードになります。

 

 

 

関連ページ

 

2003/12/17

acCmdPrintPreview : Access RunCommand


 

-Microsoft Access Club-

年額2,400円でドメインネームサーバーをご用意します。自宅サーバ構築時にご利用下さい。自宅サーバーは応用範囲が広いです。
年額2,400円でドメインネームサーバー。
自社・自宅サーバ構築時にご利用下さい。
やはり、自前サーバーは応用範囲が広いです。