Dim wfrPdf As WfrCom_PdfServer.CtrlObject 'PDF Serverのオブジェクトを作成 wfrPdf = CreateObject("Wfr.PdfServer.3") '帳票定義ファイル(*.wfr）のオープンとデータの入力 wfrPdf.Open("c:\sample\sample.wfr") wfrPdf.Import("Data1", 0, "c:\sample\sample.csv") 'PDFへの出力 wfrPdf.PdfOut("c:\out\sample.pdf","PdfMeta[Keywords]=請求書,'No 1234','あいうえお商事(株)'") 'オブジェクトの破棄 System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrPdf)