VB6 | CRYSTAL REPORT | PDF

RICARDOWEB084 27/02/2024 15:57:31
#503125
Alterado em 27/02/2024 18:32:18 Voltei a usar e programar um sistema em vb6 agora em 2024.

Naturalmente os anos passaram e eu fiquei desatualizado.
Precisarei exportar alguns relatórios em pdf.

Pelo que pesquisei, a ferramenta mais completa é o Crystal Report, usava ela há anos.
No entanto, dei uma fuçada no site (agora chamado SAP) e, pelo que entendi, não existe mais suporte para vb6.
Não tenho certeza se a versão 8.5 ainda funciona no W10 e W11.

O que a comunidade vb6 recomenda para exportar relatórios/pdf usando vb6/Windows 10 e 11 ?
FUTURA 27/02/2024 19:57:41
#503127
Sim funciona, para o vb6 eu uso o 8.5 de boa, exporto pdf normalmente.
RICARDOWEB084 27/02/2024 21:57:50
#503128
Bacana

Vou buscar tutoriais e usar o Crystal mesmo então. Achei outras soluções, mas não me pareceram tão práticas e ágeis.
ALVAROVB2009 29/02/2024 08:54:28
#503131
Eu uso o Crystal 9 e também funciona perfeitamente, inclusive no win 11
EDSON.PEREIRA 05/03/2024 21:29:33
#503167
Alterado em 07/03/2024 14:26:59 Eu uso o Crystal 10 com Windows 10

Private crApp As New CRAXDRT.Application
Private crRpt1 As CRAXDRT.Report
'.....               
                Set crRpt1 = crApp.OpenReport(App.Path & "\ARQUIVO.RPT")
                    With crRpt1 'Salvar
                        .DataBase.Tables(1).Location = App.Path & "ARQUIVO.MDB"
                        .RecordSelectionFormula = "{FICHAS.BD_FIC}='" & Me.txtFicha.Text & "'"
                        .ExportOptions.FormatType = crEFTPortableDocFormat
                        .ExportOptions.DestinationType = crEDTDiskFile
                        .ExportOptions.DiskFileName = App.Path & "\ARQUIVO.PDF"
                        .ExportOptions.PDFExportAllPages = True
                        .Export (False)
                    End With
                Set crRpt1 = Nothing
            End If
Faça seu login para responder
Voltar