CRYSTAL REPORTS
Galera o cristal reports 8.5 é compativel com vb6? preciso gerar um relatorio com ele, mas um amigo disse que vb6 so roda bem com o 8, alguem pode me ajudar. preciso fazer esse relatorio urgente. algumas dicas, exemplos, tudo que puderem me ajudar por favor.
Claro que roda. eu uso o 9.2.
Veja minha resposta neste tópico
E neste aqui
Veja minha resposta neste tópico
E neste aqui
eu uso o crystal 11 roda beleza..
exemplo de chamada de um relatório vb6/crystal 8.5
Dim dbRel As Database
Dim rstRel As Recordset
Dim report1 As New Report
Dim Report2 As New Application
Set dbRel = OpenDatabase(CaminhoBD)
Set rstRel = dbRel.OpenRecordset([Ô]SELECT Grupos.ID_Grupo, Grupos.Grupo, Subgrupos.ID_Subgrupo, Subgrupos.Subgrupo [Ô] _
& [Ô] FROM Grupos LEFT JOIN Subgrupos ON Grupos.ID_Grupo = Subgrupos.ID_Grupo;[Ô], dbOpenSnapshot)
Set report1 = New RBS01_GrupoSubgrupo
[ô]-- Abre o relatorio arquivo externo
[ô]Set report1 = Report2.OpenReport(CaminhoRelatorios & [Ô]RBS01_GrupoSubgrupo.rpt[Ô])
report1.ApplicationName = CaminhoBD
report1.Database.SetDataSource rstRel
report1.ReportTitle = [Ô]Relação de Grupos e Subgrupos de Materiais[Ô]
report1.ParameterFields(1).SetCurrentValue Empresa
frmView.CRViewer1.ReportSource = report1
frmView.selImpressora report1
report1.PaperSize = crPaperA4
report1.PaperOrientation = crPortrait
frmView.Show
frmView.CRViewer1.DisplayGroupTree = False
frmView.CRViewer1.ViewReport
frmView.CRViewer1.Zoom 150
frmView.exportarRel report1
rstRel.Close
dbRel.Close
Dim dbRel As Database
Dim rstRel As Recordset
Dim report1 As New Report
Dim Report2 As New Application
Set dbRel = OpenDatabase(CaminhoBD)
Set rstRel = dbRel.OpenRecordset([Ô]SELECT Grupos.ID_Grupo, Grupos.Grupo, Subgrupos.ID_Subgrupo, Subgrupos.Subgrupo [Ô] _
& [Ô] FROM Grupos LEFT JOIN Subgrupos ON Grupos.ID_Grupo = Subgrupos.ID_Grupo;[Ô], dbOpenSnapshot)
Set report1 = New RBS01_GrupoSubgrupo
[ô]-- Abre o relatorio arquivo externo
[ô]Set report1 = Report2.OpenReport(CaminhoRelatorios & [Ô]RBS01_GrupoSubgrupo.rpt[Ô])
report1.ApplicationName = CaminhoBD
report1.Database.SetDataSource rstRel
report1.ReportTitle = [Ô]Relação de Grupos e Subgrupos de Materiais[Ô]
report1.ParameterFields(1).SetCurrentValue Empresa
frmView.CRViewer1.ReportSource = report1
frmView.selImpressora report1
report1.PaperSize = crPaperA4
report1.PaperOrientation = crPortrait
frmView.Show
frmView.CRViewer1.DisplayGroupTree = False
frmView.CRViewer1.ViewReport
frmView.CRViewer1.Zoom 150
frmView.exportarRel report1
rstRel.Close
dbRel.Close
Segue um exemplo utilizando a versão 8.0.
Carregar imagens no Crystal Reports em run-time
Poste os detalhes do REPORT que precisa gerar.
Carregar imagens no Crystal Reports em run-time
Poste os detalhes do REPORT que precisa gerar.
Tópico encerrado , respostas não são mais permitidas