2.1.5　記述例

Visual Basicでの記述例を次に示します。

〈この項の構成〉

• (1)　印刷を実行する場合

• (2)　印刷プレビューを実行する場合

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