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

<%@ Page Language="VB" %>
<%
    Dim wfrPdf As WfrLib.PdfServer
    Dim pdfImg As Byte()

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

    'テンプレートの読み込み
    wfrPdf.LoadTemplate(Server.MapPath("template.txt"))

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

    '破棄
    wfrPdf.Dispose()
%>