crystal reports y access xp
Publicado por leticia ortiz (2 intervenciones) el 22/02/2005 21:14:22
hola a todos necesito q me ayuden con algo q realmente me parece totalmente ilogico que no salga.
tengo mi proyecto listo y en el hay que hacer varias impresiones de informes, el tema es que son en total 10 impresiones y no hay problema con 9 de ellas. Les mando la codificacion del q tiene inconvenientes, (les aseguro q en todos los formularios esta el mismo codigo y solo tengo incovenientes con este )q lo que hace cuando lo ejecuto es absolutamente nada.
Desde ya muchas gracias por todo.
Leticia
Private Sub Command1_Click()
If MSInfo.Rows > 0 Then
Call Impresion ("Informe de Stock", Aux_Usuario.Nombre, FInicial.Value, FFinal.Value)
With Informe
.ReportFileName = UB_Estadisticas & "InfStock.rpt"
.Destination = crptToWindow
.Password = Contrasena
.DataFiles(0) = UB_Estadisticas & "Stock.mdb"
.DataFiles(1) = UB_Estadisticas & "Impresion.mdb"
.PrintReport
End With
End If
tengo mi proyecto listo y en el hay que hacer varias impresiones de informes, el tema es que son en total 10 impresiones y no hay problema con 9 de ellas. Les mando la codificacion del q tiene inconvenientes, (les aseguro q en todos los formularios esta el mismo codigo y solo tengo incovenientes con este )q lo que hace cuando lo ejecuto es absolutamente nada.
Desde ya muchas gracias por todo.
Leticia
Private Sub Command1_Click()
If MSInfo.Rows > 0 Then
Call Impresion ("Informe de Stock", Aux_Usuario.Nombre, FInicial.Value, FFinal.Value)
With Informe
.ReportFileName = UB_Estadisticas & "InfStock.rpt"
.Destination = crptToWindow
.Password = Contrasena
.DataFiles(0) = UB_Estadisticas & "Stock.mdb"
.DataFiles(1) = UB_Estadisticas & "Impresion.mdb"
.PrintReport
End With
End If
Valora esta pregunta
0