Acceso Denegado Crystal Report Hola Colegas:
Tengo un problema que me esta rompiendo la cabeza...neurotico, tengo una aplicacion que imprime Amonestaciones, es para recursos humanos el sistema lleva un control de historial...bueno el asunto es que el sistema maneja colas de epsera de impresion, el usuario selecciona de la cola la que vav a imprimir y sale directamente a una impresora sin mostrar preview...todo funcionaba bien...hace un dia me encontre que el usuario que utilizamos para logonearnos al servidor..para poder traer los datos e imprimir ya no estaba lo volvimos a crear y le dimos los permisos pero nos tiro este error de codigo
-----CrystalReportSource1.ReportDocument.PrintToPrinter (1, False, 1, 99) Run-time exception thrown : System.ComponentModel.Win32Exception - Access is denied
-----
ya probamos darle full acceso al usuario pero nada colegas les envio el codigo para que chequen:
Dim NumFacturaParameterValues3 As ParameterValues = New ParameterValues()
Dim NumFacturaDiscreteValue3 As ParameterDiscreteValue = New ParameterDiscreteValue()
NumFacturaDiscreteValue3.Value = data.Values("Identidad").ToString
NumFacturaParameterValues3.Add(NumFacturaDiscreteV alue3)
Dim NumFacturaFieldDefinitions3 As ParameterFieldDefinitions = CrystalReportSource1.ReportDocument.DataDefinition .ParameterFields
Dim NumFacturaFieldDefinition3 As ParameterFieldDefinition = NumFacturaFieldDefinitions("@Identidad")
NumFacturaFieldDefinition3.ApplyCurrentValues(NumF acturaParameterValues3)
Dim configuration As String = ConfigurationManager.ConnectionStrings("ReportConn ectionString").ConnectionString
Dim Params As ArrayList = New ArrayList()
Dim i As Integer
Dim word As String = ""
For i = 0 To configuration.Length - 1
If (configuration(i) = ";") Then
Params.Add(word.Trim())
word = ""
Continue For
End If
word += configuration(i)
Next
Params.Add(word.Trim())
CrystalReportSource1.ReportDocument.DataSourceConn ections.Item(0).SetConnection(Params.Item(0).ToStr ing(), Params.Item(1).ToString(), False)
CrystalReportSource1.ReportDocument.DataSourceConn ections.Item(0).SetLogon(Params.Item(2).ToString() , "")
SetPrintOptions()
CrystalReportViewer1.ReportSource = Nothing
CrystalReportSource1.ReportDocument.PrintToPrinter (1, False, 1, 99)
PORFAVOR CUALQUIER AYUDA SERA MUY BIENVENIDA....
