2.1.5 記述例
Visual Basicでの記述例を次に示します。
- 〈この項の構成〉
(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