No refresca reporte crystal en VB 6.0
Publicado por Victor (5 intervenciones) el 14/05/2001 16:06:28
Hola a todos,
Estoy usando crystalreports version 4.6 (la del office 97) y un programa en VBasic 6.0.
Desde mi programa hecho en VB llamo al informe y lo imprime bien la primera vez, pero a la siguiente ocasion no actualiza los datos del informe. Revise y probe todo en el crystal y no pasa nada.
Lo que intento hacer es imprimir una tabla de Access 97. Se supone que entre cada impresion varian los datos de la tabla.
Se me olvidava agregar que no pasa lo mismo cuando imprimo continuamente ejecutando y cerrando mi aplicacion cada vez.
Si sirve de algo, asi es como llamo al informe desde mi aplicacion :
Principal.CrystalReport1.DataFiles(0) = App.Path + "\dat.mdb"
Principal.CrystalReport1.ReportFileName = App.Path + "\Informe1.rpt"
Principal.CrystalReport1.SelectionFormula = ""
Principal.CrystalReport1.WindowState = crptMaximized
Principal.CrystalReport1.Destination = crptToWindow
Principal.CrystalReport1.PrintReport
Principal.CrystalReport1.DataFiles(0) = ""
Principal.CrystalReport1.ReportFileName = ""
Principal.CrystalReport1.SelectionFormula = ""
Principal.CrystalReport1.PrintReport
Estoy usando crystalreports version 4.6 (la del office 97) y un programa en VBasic 6.0.
Desde mi programa hecho en VB llamo al informe y lo imprime bien la primera vez, pero a la siguiente ocasion no actualiza los datos del informe. Revise y probe todo en el crystal y no pasa nada.
Lo que intento hacer es imprimir una tabla de Access 97. Se supone que entre cada impresion varian los datos de la tabla.
Se me olvidava agregar que no pasa lo mismo cuando imprimo continuamente ejecutando y cerrando mi aplicacion cada vez.
Si sirve de algo, asi es como llamo al informe desde mi aplicacion :
Principal.CrystalReport1.DataFiles(0) = App.Path + "\dat.mdb"
Principal.CrystalReport1.ReportFileName = App.Path + "\Informe1.rpt"
Principal.CrystalReport1.SelectionFormula = ""
Principal.CrystalReport1.WindowState = crptMaximized
Principal.CrystalReport1.Destination = crptToWindow
Principal.CrystalReport1.PrintReport
Principal.CrystalReport1.DataFiles(0) = ""
Principal.CrystalReport1.ReportFileName = ""
Principal.CrystalReport1.SelectionFormula = ""
Principal.CrystalReport1.PrintReport
Valora esta pregunta


0