在报表设置了打印的页面为A4,可是我使用了下面的代码打印，却得不到想要的效果，在打印页面中报表很大
下面是我的代码

Private Sub imgPrint_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventAr
gs) Handles imgPrint.Click
        'Function to open connection and table
        Dim dt As DataTable
        Dim SQLString As String = TKSUCSearchChild.SQLWhereClause
        Try
            'dt = GetTableData("View_Item", SQLString, SQLOrderByClause)
            'dt = Your DataTable
            oRpt = New YourReportName
            oRpt.SetDataSource(dt)
            View_PickingSlip.ReportSource = oRpt
            Dim exp As ExportOptions
            Dim req As ExportRequestContext
            Dim st As System.IO.Stream
            Dim b() As Byte
            Dim pg As Page
            pg = View_PickingSlip.Page
            exp = New ExportOptions
            exp.ExportFormatType = ExportFormatType.PortableDocFormat
            exp.FormatOptions = New PdfRtfWordFormatOptions
            req = New ExportRequestContext
            req.ExportInfo = exp
            With oRpt.FormatEngine.PrintOptions
                .PaperSize = PaperSize.PaperLegal
                .PaperOrientation = PaperOrientation.Landscape
            End With
            st = oRpt.FormatEngine.ExportToStream(req)
            pg.Response.ClearHeaders()
            pg.Response.ClearContent()
            pg.Response.ContentType = "application/pdf"
            ReDim b(st.Length)
            st.Read(b, 0, CInt(st.Length))
            pg.Response.BinaryWrite(b)
            pg.Response.End()
            dt.Dispose()
        Catch ex As Exception
            ShowError(ex.Message)
        End Try