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:
Ver originalPrivate 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