付録C.1 OLEオートメーションを使用したサンプルプログラム

Visual Basicでのサンプルプログラムの記述例を次に示します。

Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
  Dim objEurReport As Object                        'オブジェクトを定義
  objEurReport=CreateObject("APGRPT.Report.3")      'EURのオブジェクトを作成
  objEurReport.Application.ReportBasePath= _
                          "C:¥Program Files¥Hitachi¥EUR Designer¥Sample¥Reports¥"
                                                    '帳票ファイルのフォルダを指定
  objEurReport.Application.Open("納品書.fms")       '帳票ファイルを開く
  objEurReport.Application.Document.PrintOut(0, 0, 1) '帳票の印刷
  objEurReport.Application.Quit                     'EURの終了
  Set objEurReport = Nothing                        'EURのオブジェクトを解放
Exit Sub