Hi,

You could try something like this:

vb Code:
  1. Dim tip As Type = reportViewer1.[GetType]()
  2.      Dim pr As FieldInfo() = tip.GetFields(BindingFlags.Instance Or BindingFlags.NonPublic)
  3.      Dim ps As New System.Drawing.Printing.PageSettings()
  4.      ps.Landscape = True
  5.    
  6.      For Each item As FieldInfo In pr
  7.          If item.Name = "m_pageSettings" Then
  8.              item.SetValue(reportViewer1, ps)
  9.            
  10.          End If
  11.      Next

Hope it helps,

sparrow1