Dim wfrPdf As WfrCom_PdfServer.CtrlObject 'PDF Server オブジェクトの作成 wfrPdf = CreateObject("Wfr.PdfServer.3") 'A4縦のページを追加 wfrPdf.AddPage(21000,29700) 'テキストアイテムの追加 wfrPdf.AddItem("T", 0,0,5000,5000, "", "FontSize=600;FontBold=True", "明日の天気は晴れです。") 'PDFへの出力 wfrPdf.PdfOut("c:\out\sample.pdf") 'オブジェクトの破棄 System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrPdf)