6.1.4 アプリケーションの記述例

以下に、COMインタフェース「PrComPrtコンポーネント」の記述例について説明します。

●データファイルを指定して帳票出力を実行する場合

[記述例]

「売上伝票」という帳票を出力します。

<%
Dim prcomprt
Set prcomprt = CreateObject(" PrCom.PrComPrt" )
prcomprt.ScriptFile= "売上伝票"
prcomprt.DataFile= "C:\ListCREATOR\Data\売上伝票.dat"
prcomprt.PrintOut
%>

●データファイルを生成して帳票出力を実行する場合

[記述例]

「売上伝票」という帳票を出力します。入力データは、レコード（行）単位で指定します。

<%
Dim prcomprt
Set prcomprt = CreateObject(" PrCom.PrComPrt" )
prcomprt.ScriptFile= "売上伝票"
prcomprt.StartData
prcomprt.DataWrite("0020|カラーテレビ|3|120000|1234567890|1.234")
prcomprt.DataWrite("0022|カラオケセット|1|82000|1234567890|1.234")
prcomprt.EndData
prcomprt.PrintOut
%>

●OWFファイルを生成する場合

[記述例]

「売上伝票」という帳票を使用し、OWFファイルを生成します。

<%
Dim prcomprt
Set prcomprt = CreateObject(" PrCom.PrComPrt" )
prcomprt.ScriptFile= "売上伝票"
prcomprt.DataFile= "C:\ListCREATOR\Data\売上伝票.dat"
prcomprt.GenerateOwf(" 生成するOWFファイルのフルパス文字列" )
%>

「売上伝票」という帳票を使用して、データファイルを動的に生成し、OWFファイルを生成します。

<%
Dim prcomprt
Set prcomprt = CreateObject(" PrCom.PrComPrt" )
prcomprt.ScriptFile= "売上伝票"
prcomprt.StartData
prcomprt.DataWrite("0020|カラーテレビ|3|120000|1234567890|1.234")
prcomprt.DataWrite("0022|カラオケセット|1|82000|1234567890|1.234")
prcomprt.EndData
prcomprt.GenerateOwf("生成するOWFファイルのフルパス文字列" )
%>

●動的に外字フォントファイルを指定し、OWFファイルを生成する場合

[記述例]

「売上伝票」という帳票を使用して、動的に外字フォントファイルを指定し、OWFファイルを生成します。

<%
Dim prcomprt
Set prcomprt = CreateObject(" PrCom.PrComPrt" )
prcomprt.ScriptFile= "売上伝票"
prcomprt.DataFile= " C:\ListCREATOR\Data\売上伝票.dat"
prcomprt.OwfEmbedEUDC = 1
prcomprt.SetOwfRegFont("C:\Fonts\min.ttf" ," C:\Fonts\mingaiji.tte" )
prcomprt.SetOwfRegFontCollection(" C:\Fonts\got.ttc" ," C:\Fonts\gotgaiji.tte" , 2)
prcomprt.GenerateOwf("生成するOWFファイルのフルパス文字列" )
%>