Hi,
You could try something like this:
vb Code:
Dim tip As Type = reportViewer1.[GetType]() Dim pr As FieldInfo() = tip.GetFields(BindingFlags.Instance Or BindingFlags.NonPublic) Dim ps As New System.Drawing.Printing.PageSettings() ps.Landscape = True For Each item As FieldInfo In pr If item.Name = "m_pageSettings" Then item.SetValue(reportViewer1, ps) End If Next
Hope it helps,
sparrow1





Reply With Quote