Dim wfrPdf As WfrCom_PdfServer.CtrlObject 'PDF Serverのオブジェクトを作成 wfrPdf = CreateObject("Wfr.PdfServer.3") 'ページの追加（A4） wfrPdf.AddPage(21000, 29700) 'アイテムの追加（”晴れ”だけを２倍のサイズで出力する例） wfrPdf.AddItem("T", 1000, 1000, 19000, 2000, "", "TextOption=Tag", "今日の天気は<S:200>晴れ</S>です。") 'アイテムの追加（TextFormatでタグを使用し値が負の場合に赤く出力する例） wfrPdf.AddItem("T", 1000, 2000, 19000, 3000, "", "TextOption=Tag;TextFormat='%#;zero;<C:#f00>(▲%-#)</C>;empty'", "-1") 'PDFへの出力 wfrPdf.PdfOut("c:\out\sample.pdf") 'オブジェクトの破棄 System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrPdf)