OCXを使用したサンプルプログラムの記述例を，印刷を実行する場合と印刷プレビューを実行する場合とに分けて次に示します。

• 印刷を実行する場合の記述例
  

  Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
      With EURCTL321
          .ReportFilePath = "C:\Program Files\Hitachi\EUR Designer\Sample\Reports\"
                                             '帳票ファイルが格納されているパスを指定
          .ReportFileName = "納品書.fms"     '帳票ファイルを指定
          .PrintReport()                     '帳票をプリンタへ印刷
      End With
  End Sub

• 印刷プレビューを実行する場合の記述例
  

  Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click
      With EURCTL321
          .ReportFilePath = "C:\Program Files\Hitachi\" & "EUR Designer\Sample\Reports\"
                                             '帳票ファイルが格納されているパスを指定
          .ReportFileName = "納品書.fms"     '帳票ファイルを指定
          .ZoomRate = 75                     '帳票印刷ウィンドウのズーム倍率を指定
          .ViewReport()                      '帳票印刷ウィンドウを表示
      End With
  End Sub