Dim wfrPdf As WfrCom_PdfServer.CtrlObject 'PDF Serverのオブジェクトを作成 wfrPdf = CreateObject("Wfr.PdfServer.3") 'ページの追加とアイテムの作成 wfrPdf.AddPage(21000, 29700) wfrPdf.AddItem("T", 1000, 1000, 19000, 5000, "", "", "abcdefgあいうえお") 'PDFへの出力 wfrPdf.PdfOut("c:\out\sample.pdf") 'オブジェクトの破棄 System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrPdf)