Dim r As Infragistics.Documents.Reports.Reports.Report.Report = New Report() ' セクションを Report に追加します。 Dim s As Infragistics.Documents.Reports.Reports.Report.Section.ISection = r.AddSection() s.PageOrientation = PageOrientation.Portrait 'Section に Text を追加します。 Dim t As Infragistics.Documents.Reports.Reports.Report.Text.IText = s.AddText() t.AddContent(”Test Text”) Dim theFile As String = c:\test.pdf” r.Publish(theFile, FileFormat.PDF)