Crystal no imprime desde el servidor
Publicado por javi asd asd (1 intervención) el 07/08/2007 14:02:50
Hola!!!
Estoy haciendo una aplicacion con VB y ASP y tengo un grave problema con el crystal report que es el siguiente.
Me funciona perfectamente cuando lo ejecuto desde local, pero al intentar imprimir desde otro pc remoto no me imprime, PERO TAMPOCO ME MUESTRA MENSAJE DE ERROR, no hace nada.
Creo que es porque no m reconoce ninguna impresora
Os adjunto el codigo
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DA = New SqlDataAdapter(strSQL, Me.SqlDataSource1.ConnectionString)
DS = New DataSet
CR = New ReportDocument
DA.Fill(DS, "AlbaranTemp")
If (Session("Serie") = "P07") Then
CR.Load(strReportPath + "NotaEntrega.rpt")
Else
CR.Load(strReportPath + "Albaran.rpt")
End If
CR.SetDataSource(DS.Tables("AlbaranTemp"))
Me.CrystalReportViewer1.DisplayGroupTree = False
Me.CrystalReportViewer1.ReportSource = CR
End Sub
Protected Sub botImprimir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles botImprimir.Click
CR.PrintToPrinter(1, False, 0, 0)
If (result_consulta = False) Then
Me.CrystalReportViewer2.Visible = True
CR_carta.PrintToPrinter(1, False, 0, 0)
Me.CrystalReportViewer2.Visible = False
End If
End Sub
Estoy haciendo una aplicacion con VB y ASP y tengo un grave problema con el crystal report que es el siguiente.
Me funciona perfectamente cuando lo ejecuto desde local, pero al intentar imprimir desde otro pc remoto no me imprime, PERO TAMPOCO ME MUESTRA MENSAJE DE ERROR, no hace nada.
Creo que es porque no m reconoce ninguna impresora
Os adjunto el codigo
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DA = New SqlDataAdapter(strSQL, Me.SqlDataSource1.ConnectionString)
DS = New DataSet
CR = New ReportDocument
DA.Fill(DS, "AlbaranTemp")
If (Session("Serie") = "P07") Then
CR.Load(strReportPath + "NotaEntrega.rpt")
Else
CR.Load(strReportPath + "Albaran.rpt")
End If
CR.SetDataSource(DS.Tables("AlbaranTemp"))
Me.CrystalReportViewer1.DisplayGroupTree = False
Me.CrystalReportViewer1.ReportSource = CR
End Sub
Protected Sub botImprimir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles botImprimir.Click
CR.PrintToPrinter(1, False, 0, 0)
If (result_consulta = False) Then
Me.CrystalReportViewer2.Visible = True
CR_carta.PrintToPrinter(1, False, 0, 0)
Me.CrystalReportViewer2.Visible = False
End If
End Sub
Valora esta pregunta
0