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