**Quiero generar un reporte para guardarlo e imprimirlo al mismo tiempo**
 *Uso el siguiente código para *imprimir.**

    Dim Message As String
        Dim conn As New SqlConnection
        conn.ConnectionString = conexion
        Try
            Dim comando As New SqlCommand
            comando.CommandText = ("INSERT INTO 
        Dim cn2 As New SqlConnection
        'Dim encontro As String
        cn2.ConnectionString = conexion
        Dim cmd2 As New SqlCommand()
        cmd2.CommandText = "SELECT TOP 1 id FROM Dictamen ORDER BY id DESC "
        Label1.Text & "'"
        cmd2.Connection = cn2
        cn2.Open()
        Dim dr As SqlDataReader
        dr = cmd2.ExecuteReader
        While dr.Read()
            encontro = True
            Label2.Text() = dr.Item("id").ToString()
        End While
        Response.Redirect("reportedictamen.aspx?id=" & Label2.Text & "")
    End Sub
** Al momento de dar imprimir  manda a una pagina en blanco**
[![introducir la descripción de la imagen aquí][1]][1]
*¿alguna solución?*


  [1]: https://i.sstatic.net/POEut.png