2.1.5 記述例

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

<この項の構成>
(1) 印刷を実行する場合
(2) 印刷プレビューを実行する場合

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

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

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

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