次に示すパラメタを指定して,サーバに印刷データを蓄積します。
|
コーディング例を次に示します。
<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>