Dim r As Infragistics.Documents.Reports.Report.Report = New Report() 'Adding a section to the Report Dim s As Infragistics.Documents.Reports.Report.Section.ISection = r.AddSection() s.PageOrientation = PageOrientation.Portrait 'Adding Text to the Section Dim t As Infragistics.Documents.Reports.Report.Text.IText = s.AddText() t.AddContent(”Test Text”) Dim theFile As String = c:\test.pdf” r.Publish(theFile, FileFormat.PDF)