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