Imprimir sin vista previa.
Tengo un proyecto en VB. net, tengo los reportes generados a traves de crystal y siempre se presenta la vista previa. ahora, lo que necesito es que no salga la vista previa si no que se imprima directamente.
Mas o menos lo que hago es lo siguiente:
Dim dts_histograma As New DataSet()
Dim str_his As String = str_his
If carga_histograma(dts_histograma) Then str_his = "Histograma"
Dim obj_reporte As New rpt_entregaresultados()
Dim frm_MDIChild As New Frm_reportes(str_his, obj_reporte, dts_operacion, dts_histograma, True)
frm_MDIChild.int_alto = frm_refer_main_form.mdiClient1.Height
frm_MDIChild.int_ancho = frm_refer_main_form.mdiClient1.Width
frm_MDIChild.Text = "Emisión de Resultados"
frm_refer_main_form.Crea_formulario(frm_MDIChild)
No se si alguien puede ayudarme.
gracias
Mas o menos lo que hago es lo siguiente:
Dim dts_histograma As New DataSet()
Dim str_his As String = str_his
If carga_histograma(dts_histograma) Then str_his = "Histograma"
Dim obj_reporte As New rpt_entregaresultados()
Dim frm_MDIChild As New Frm_reportes(str_his, obj_reporte, dts_operacion, dts_histograma, True)
frm_MDIChild.int_alto = frm_refer_main_form.mdiClient1.Height
frm_MDIChild.int_ancho = frm_refer_main_form.mdiClient1.Width
frm_MDIChild.Text = "Emisión de Resultados"
frm_refer_main_form.Crea_formulario(frm_MDIChild)
No se si alguien puede ayudarme.
gracias