Problema al imprimir directo reporte crystal en vb.net 2008

[gctalico]

que tal tengo un problema en una aplicacion, genero un reporte en crystal y lo mando a imprimir directo, esto lo e hecho antes y siempre funcionaba pero esta vez no, este es el codigo que tengo para mandarlo

Código vb:

Private Sub ReportePallet()
        Try
 
            Dim iReporte As New Reporte
            Dim rpt As New IDPalletHAR
            rpt.Load()
            rpt.SetDataSource(ReturnDataSetGeneral)
            rpt.Refresh()
 
            Dim rds = New ReportDataSource()
            rds.Name = "DSReportePallet_TBPallet"
            rds.Value = ReturnDataSetGeneral().Tables(0)
            '***********************************************
            iReporte.Reporte = rpt
            rpt.PrintToPrinter(1, False, 0, 0) '////////////////  imprimir directo
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 

esto no me causa error ni nada pero hay algo extraño, resulta que la impresora esta en red con ip y si ejecuto mi aplicacion no me imprime mi reporte hasta que en las propiedades de la impresora de le doy enviar pagina de prueba inmediatamente me imprime la pagina de prueba y los reportes que antes mande entoces no se si falte algo de codigo que haga que mande la impresion de mi reporte inmediatamente sin esperar nada, les agradezco su ayuda