4.1.8 コーディング例
次に示すパラメタを指定して，PDF形式ファイルを出力します。出力ファイルは，EUR Server - Adapter稼働マシンに出力されます。
- ■入力ファイル（印刷定義ファイル）：EUR Server Service稼働マシンに配置
-
帳票ファイル名：sample1.fms
- ■入力ファイル（ユーザデータファイル）：EUR Server - Adapter稼働マシンに配置
-
マッピングデータファイルのパス：c:\Temp
マッピングデータファイル名：data1.csv
- ■出力ファイル
-
出力PDF形式ファイルのパス：c:\Temp
出力PDF形式ファイル名：pdf1.pdf
コーディング例を次に示します。
- 〈この項の構成〉
(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 target …変数宣言
Set EURPM=Server.CreateObject("EURPM.Exec")
…プログラムID「EURPM.Exec」を指定して，
ActiveX起動部品のインスタンス作成
EURPM.ReportFileName="sample1.fms" …帳票ファイルの指定
EURPM.DataFilePath="c:\Temp" …マッピングデータファイルの
パスの指定
EURPM.DataFileName="data1.csv" …マッピングデータの指定
EURPM.PDFFilePath="c:\Temp" …PDF形式ファイルパスの指定
EURPM.PDFFileName="pdf1.pdf" …PDF形式ファイル名の指定
If Err.Number <> 0 Then
Response.Write("印刷実行前に
エラーが発生しています"& Err.Number &"<BR>")
Else
EURPM.OutputPDFReport() …PDF形式ファイル出力指示
If Err.Number = 0 Then …OutputPDFReportメソッドは
正常終了かどうかの判定
「正常終了時の処理」
Else
errid= Err.Number …エラーコードをerridに取り出す
If errid=-nnn Then …KEEYnnn-Eの場合のエラー処理
Elseif errid=-nnn Then …KEEYnnn-Eの場合のエラー処理
Elseif errid=-nnn Then …KEEYnnn-Eの場合のエラー処理
Elseif errid=
: …そのほかのエラー処理を繰り返す
End If
End If
End If
%>
</BODY>
</HTML>