Hola a todos, utilixo el siguiente código para imprimir un report directamente, pero el problema es que se me come la parte de abajo del report y sin embargo utilizo un crviewer dibujado en un formulario y le doy a su boton de imprimir se imprime correctamente.
Muchas gracias por su ayuda.
Public Function Imprimir(ByVal valor As String)
Dim crv1 As New CrystalDecisions.Windows.Forms.CrystalReportViewer()
Dim parametros As New ParameterFields()
Dim parametro As New ParameterField()
Dim dVal As New ParameterDiscreteValue()
parametro.ParameterFieldName = "@Numero"
dVal.Value = valor
parametro.CurrentValues.Add(dVal)
parametros.Add(parametro)
crv1.ParameterFieldInfo = parametros
crv1.ReportSource = "Report1.rpt"
crv1.PrintReport()
End Sub
