How can modify this code to just print rdlc report without preview

Private Sub printpreview()
    Dim warnings As Warning()
    Dim streamIds As String()
    Dim contentType As String
    Dim encoding As String
    Dim extension As String
 
    'Export the RDLC Report to Byte Array.
    Dim bytes As Byte() = ReportViewer1.LocalReport.Render("PDF", Nothing, contentType, encoding, extension, streamIds, warnings)
 
    'Open generated PDF.
    Response.Clear()
    Response.Buffer = True
    Response.Charset = ""
    Response.Cache.SetCacheability(HttpCacheability.NoCache)
    Response.ContentType = contentType
    Response.BinaryWrite(bytes)
    Response.Flush()
    Response.End()
End Sub