次に示すパラメタを指定して,PDF形式ファイルを出力します。出力ファイルは,EUR Server - Adapter稼働マシンに出力されます。
|
コーディング例を次に示します。
<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>