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