プリンタ出力のコーディング例

帳票システム構築支援　uCosminexus EUR　uCosminexus EUR Print Manager 帳票出力

9.11.1　プリンタ出力のコーディング例

次に示すパラメタを指定して，拠点サーバで印刷するときのコーディング例です。

入力ファイル（印刷定義ファイル）：EUR Print Managerのあるマシンに配置: 帳票ファイル名：sample1.fms

入力ファイル（ユーザ定義ファイル）：EUR Print Manager - Adapterのあるマシンに配置: マッピングデータファイルのパス：c:\Temp; マッピングデータファイル名：data1.csv

<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.ClientAddress=target              …クライアントIPアドレスの指定
  EURPM.ReportFileName="sample1.fms"      …帳票ファイルの指定
  EURPM.DataFilePath="c:\Temp"            …マッピングデータファイルの
                                            パスの指定
  EURPM.DataFileName="data1.csv"          …マッピングデータの指定
  If Err.Number <> 0 Then
    Response.Write("印刷実行前に
                    エラーが発生しています"& Err.Number &"<BR>")
  Else
    EURPM.PrintPMReport()                 …印刷指示
    If Err.Number = 0 Then                …PrintPMReportメソッドは
                                            正常終了かどうかの判定
      「正常終了時の処理」
    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>

9.11.1 プリンタ出力のコーディング例

9.11.1　プリンタ出力のコーディング例