AccessのレポートをVisual Basicから印刷する方法

◆概要

このページは、AccessのレポートをVisual Basicから印刷する方法について記載しています。


AccessのレポートをVBから印刷するには、次のようにします。

  1. フォームにコマンドボタンを追加します。
  2. [プロジェクト]-[参照設定]でMicrosoft Access 10.0 Object Libraryを追加します。
  3. コマンドボタンのクリック時イベントプロシージャーに次のコードを入力します。 
Private Sub Command1_Click()
    Dim ac As Access.Application

    Set ac = New Access.Application
    
    ' データベースを開く
    ' 環境によって　 "C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB"
    'というステートメントを置き換えてください。

    ' データベースファイル名
    ac.OpenCurrentDatabase ( _
        "C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB")
    ' プリントプレビューを見たいときはコメントアウトを取り去ってください。
    'ac.Visible = True

    ' プレビューを見たいならacViewNormalをacViewPreviewに置き換えてください。
    'すぐに印刷を始めます。
    ac.DoCmd.OpenReport "Catalog", acViewNormal
    ' プレビューを見たいときは、次のコードを削除
    ' またはコメントアウトしてください。
    ac.CloseCurrentDatabase

End Sub


▼ページトップへ