Crystal Report - muchos pasos para imprimir

El siguiente código funciona para mandar a imprimir un reporte, sin embargo son muchos los click que el usuario tiene que hacer para llegar a esto.

Me gustaria que me ayuden a modificarlo para que cuando el usuario haga clic muestre inmediatamente la vista previa del pdf para imprimir.

Actualmente cuando se hace clic en el boton, muestra el CrystalReportViewer1 para hacer clic en la impresorita, luego muestra la venta para la impresion se hace clic en OK, luego muestra la pagina pdf para hacer luego clic otra vez en la impresorita y entonces la ventana de dialogo de la impresora. Como ven son muchos los pasos

Imports system.IO
Imports system.data
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Xml.Serialization
Imports System.Collections.Generic
Imports System.ComponentModel
-----------------------------------------------------------------------------
Partial Class Ielviatico
Inherits System.Web.UI.Page
Private informe As CrystalDecisions.CrystalReports.Engine.ReportDocument
-----------------------------------------------------------------------------
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

CrystalReportViewer1.Visible = True
End Sub
-----------------------------------------------------------------------------
Protected Sub Button1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Load

Dim rutaInforme As String = "mireporte"
Dim login As New CrystalDecisions.Shared.TableLogOnInfo
Dim sqladaptador As DataView
SqlDataSource1.SelectCommand = Session("selectcommand")
sqladaptador = CType(Me.SqlDataSource1.Select(DataSourceSelectArguments.Empty),System.Data.DataView)
informe = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
informe.Load(rutaInforme)
informe.SetDataSource(sqladaptador)
CrystalReportViewer1.ReportSource = informe
With (login.ConnectionInfo)
.ServerName = "xxxxxx"
.DatabaseName = "xxxxxxxx"
.UserID = "xx"
.Password = "xxxxxxxxx"
End With
CrystalReportViewer1.LogOnInfo.Add(login)
End Sub