5.2.3 コーディング例

次に示すパラメタを指定して,サーバに印刷データを蓄積します。

入力ファイル(印刷定義ファイル):EUR Server Service稼働マシンに配置
帳票ファイル名:sample1.fms
入力ファイル(ユーザデータファイル):EUR Server - Adapter稼働マシンに配置
マッピングデータファイルのパス:c:¥Temp
マッピングデータファイル名:data1.csv

コーディング例を次に示します。

<この項の構成>
(1) ActiveX起動部品の場合

(1) ActiveX起動部品の場合

<HTML>
<HEAD>
<TITLE>Sample Script of ASP page for EUR Print Manager</TITLE>
</HEAD>
<BODY>
<%
 Server.ScriptTimeOut=100     …スクリプトのタイムアウト時間を
                                100秒に設定
 On Error Resume Next         …エラーハンドリングを行う
 dim jobid                    …変数宣言
 Set EURPM=Server.CreateObject("EURPM.Exec")
                       …プログラムID「EURPM.Exec」を指定して,
                         ActiveXオブジェクトのインスタンス作成
 EURPM.ReportFileName="sample1.fms"       …帳票ファイルの指定
 EURPM.DataFilePath="c:¥Temp"             …マッピングデータパスの指定
 EURPM.DataFileName="data1.csv"           …マッピングデータの指定
 EURPM.PrintMode=2                        …印刷方式を「蓄積」に設定
 If Err.Number <> 0 Then
   Response.Write("蓄積実行前に
                   エラーが発生しています"& Err.Number &"<BR>")
 Else
   EURPM.PrintPMReport()               …蓄積指示
   If Err.Number = 0 Then              …PrintPMReportメソッドは
                                         正常終了かどうかの判定
     jobid = EURPM.GetJobID();         …スプールデータのジョブIDを取得
     「正常終了時の処理」
   Else
     errid= Err.Number           …エラーコードをerridに取り出す
     If errid=-441 Then          …KEEY441-Wの場合のエラー処理
       Elseif errid=-301 Then    …KEEY301-Eの場合のエラー処理
       Elseif errid=-302 Then    …KEEY302-Eの場合のエラー処理
       Elseif errid=
             :                   …以下,そのほかのエラー処理を繰り返す
     End If
   End If
 End If
%>
</BODY>
</HTML>