Hola! Yo también tengo el error de : ....rpt: Solicitud cancelada por el usuario! tienes alguna idea de cómo solucionarlo?
Yo estoy haciendo una aplicación web ASP.NET con Visual Basic.net(realmente mi trabajo es hacerle las mejoras al código de una aplicación que ya existe) y me interesa que el botón imprimir imprima!!! no lo hace! :(...
Una de las tantas pruebas que he hecho es que abro la aplicación q está
corriendo en el servidor y le doy al botón e imprime!, lo que quiere decir
que el código que es el mismo que corre localmente funciona! y que toma el
valor de la impresora asignada según mi dir ip. Pero extrañamente eso no ocurre con el código que estoy corriendo localmente en mi máquina, que es el mismo que corre en el servidor!la arquitectura de la aplicación o los componentes que utilizo son el data adapter, el data set y el oracle connection ah y un componente de tipo crystal report.
Otra de las pruebas que realicé fué aislar estos componentes en un
proyecto nuevo y hacer la prueba de impresión con una sola tabla con un sólo
campo, y ver qué tal funciona, y nada...
El código es el siguiente:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
Dim Servidor As String = "ccudo.net"
Me.OracleConnection1.ConnectionString = "user id=clinica;data source=" & Servidor & ";password=123"
Me.OracleSelectCommand1.CommandText = "SELECT NUMEROHISTORIA" & _
" FROM HIS_BENEFICIARIOS WHERE NUMEROHISTORIA = :NUMEROHISTORIA"
Me.OracleSelectCommand1.Parameters(":NUMEROHISTORI A").Value = 0
Me.OracleDataAdapter1.Fill(DataSet11)
If Not IsPostBack Then
DataGrid1.DataBind()
End If
Dim SQL As String
Dim rs As System.Data.OracleClient.OracleDataReader
Dim cmd As New System.Data.OracleClient.OracleCommand
Dim NumIp As String
NumIp = "192.168.1.18"
'NumIp = "Request.ServerVariables("Remote_Addr")
Try
Me.OracleConnection1.Open()
Try
cmd.Connection() = OracleConnection1
SQL = " SELECT NOMBREIMPRESORA"
SQL = SQL & " FROM SIS_IMPRESORAS"
SQL = SQL & " WHERE DIRECCIONIP='" & NumIp & "'"
cmd.CommandText = SQL
rs = cmd.ExecuteReader
rs.Read()
Session("Impresora") = rs.GetString(0)
Catch ex As Exception
Console.Write(ex.Message)
End Try
Catch ex As Exception
Finally
Me.OracleConnection1.Close()
End Try
End Sub
ESTO LO HACE BIEN!!!lo he corrido paso a paso y le he puesto variables de
pruebas a ver si almacena lo que debe almacenar y todo está ok.
Ahora en el código del botón imprimir que es el siguiente:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.OracleSelectCommand1.Parameters(":NUMEROHISTORI A").Value = 0
Me.OracleConnection1.Open()
'DataSet11.Clear()
Me.OracleDataAdapter1.Fill(DataSet11)
Dim Rep As New CrystalReport1
Rep.SetDataSource(DataSet11) ' Asocia el conjunto de datos con el reporte
'Dim pruebita As String = Session("Impresora")
Rep.Refresh()
Rep.PrintOptions.PrinterName = "\\CCUDO\SamsungC"
Rep.PrintToPrinter(1, False, 0, 0)
Catch ex As Exception
Page.RegisterStartupScript("Error", "<script language=javascript>alert('" + ex.Message + "');</script>")
End Try
End Sub
En este código la instrucción que hace que entre al Catch es la siguiente: Rep.PrintToPrinter(1, False, 0, 0)
y no imprime nada, y en la barra de estado de la página web me dice listo
pero con errores en la página, al darle doble click sobre el iconito me dice
que Error: Constante de cadena sin terminar, Línea 25 caracter 113.
Me voy al código buscando esa línea y es la siguiente:
Me.OracleSelectCommand1.CommandText = "SELECT NUMEROHISTORIA FROM
HIS_BENEFICIARIOS WHERE (NUMEROHISTORIA = :NUMEROHISTORIA)"
Justo en la condición del WHERE!
Entonces de verdad que ya no sé qué puede estar pasando!le agradecería su
orientación por lo menos que me dé luces de que puedo estar haciendo mal, pq ya no lo veo!!!
Ah he probado también cambiándole los valores de los parámetros del printoprinter, y nada!
Gracias por su tiempo!
Si hay otra persona que esté pasando por esta mismo tormento! le dejo mi email para ponernos en contacto!!
[email protected]
Si tienen la solución pues lo ideal sería colocarla aquí! y si pueden mandarla a mi email mejor! igual estaré pendiente! porfis