株式会社テラソフトデザイン

<%@ Page Language="VBScript" %>
<%
    Dim wfrPdf As Object
    Dim pdfImg As Byte()

    'PDF Server オブジェクトの作成
    wfrPdf = Server.CreateObject("Wfr.PdfServer.3")

    '帳票定義ファイル(*.wfr)のオープンとデータの入力
    wfrPdf.Open(Server.MapPath("sample.wfr"))
    wfrPdf.Import("Data1", 0, Server.MapPath("sample.csv"))

    'PDFイメージの取得とクライアントへの出力
    pdfImg= wfrPdf.GetPdfImage("PdfUser=test")
    Response.ContentType="application/pdf"
    Response.BinaryWrite(pdfImg)

    'オブジェクトの破棄
    System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrPdf)
%>