Visual Basicでの記述例を次に示します。
Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
Dim strExeFileName As String
Dim strRptFileName As String
Dim strExeOption As String
Dim lngTaskID As Integer
strExeFileName = "C:¥Program Files¥HITACHI¥EUR¥" & "Designer¥Program¥" & "apgrpt.exe"
'EUR実行ファイルを指定
strRptFileName = "納品書.fms" '帳票ファイルを指定
strExeOption = "/P" '起動オプションに帳票プリンタ印刷を指定
lngTaskID = Shell(strExeFileName & Chr(&H20S) & Chr(&H22S) & strRptFileName & _
Chr(&H22S) & Chr(&H20S) & strExeOption, AppWinStyle.Hide)
'EUR実行ファイルを起動
End Sub
Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click
Dim strExeFileName As String
Dim strRptFileName As String
Dim strExeOption As String
Dim lngTaskID As Integer
strExeFileName = "C:¥Program Files¥HITACHI¥EUR¥" & "Designer¥Program¥apgrpt.exe"
'EUR実行ファイルを指定
strRptFileName = "納品書.fms" '帳票ファイルを指定
strExeOption = "/l print /z 75"
'起動オプションに帳票印刷ウィンドウ表示とズーム倍率を指定
lngTaskID = Shell(strExeFileName & Chr(&H20S) & Chr(&H22S) & strRptFileName & _
Chr(&H22S) & Chr(&H20S) & strExeOption, AppWinStyle.NormalFocus)
'EUR実行ファイルを起動
End Sub