Dim wfrPdf As WfrCom_PdfServer.CtrlObject 'PDF Serverのオブジェクトを作成 wfrPdf = CreateObject("Wfr.PdfServer.3") '1つ目の帳票定義ファイル(*.wfr）のオープンとデータの入力 wfrPdf.Open("c:\sample\sample1.wfr") wfrPdf.Import("Data1", 0, "c:\sample\sample1.csv") '１つ目の帳票をPDFに出力 wfrPdf.PdfOut("c:\out\sample1.pdf") '開いている帳票を閉じます。 wfrPdf.Close() '2つ目帳票定義ファイル(*.wfr）のオープンとデータの入力 wfrPdf.Open("c:\sample\sample2.wfr") wfrPdf.Import("Data1", 0, "c:\sample\sample2_1.csv") wfrPdf.Import("Data2", 0, "c:\sample\sample2_2.csv") '２つ目の帳票をPDFに出力 wfrPdf.PdfOut("c:\out\sample2.pdf") 'オブジェクトの破棄 System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrPdf)