كيف يمكن جعل التقرير بعرض الصفحة

In PrintPage event of your PrintDocument object set e.PageSettings.Landscape = True , i.e

    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.PageSettings.Landscape = True
    End Sub