Como Imprimir Relatórios do Crystal Reports no Visual Basic

O Crystal Reports é uma ferramenta poderosa para gerar relatórios no Visual Basic (VB6). Para exibir ou imprimir um relatório, você precisa criar o arquivo .RPT, configurá-lo corretamente e utilizá-lo no seu projeto VB6.

Passo a Passo para Imprimir um Relatório do Crystal Reports no VB6

Criando o Relatório no Crystal Reports

Antes de integrar com o VB6, crie o relatório no Crystal Reports com base na sua tabela do banco de dados. Salve-o com a extensão .RPT.

Adicionando o Crystal Reports no Formulário

  1. No Visual Basic 6, vá até Project → Components (Ctrl + T).
  2. Selecione Crystal Report Control 8.5 (ou a versão que estiver utilizando).
  3. Adicione o controle CrystalReport1 ao seu formulário.

Configurando as Propriedades do CrystalReport1

Você pode definir as propriedades diretamente no Properties Window ou em tempo de execução no código.

Configuração Manual (Properties Window)

Defina os seguintes valores:
ReportFileName → Caminho do arquivo .RPT
Destination → Define a saída do relatório:

  • 0 → Tela (Preview)
  • 1 → Impressora
  • 2 → Arquivo de Texto

Código para Exibir e Imprimir Relatórios no VB6

A seguir, um exemplo de código para visualizar o relatório na tela e enviá-lo para a impressora.

Private Sub cmdVisualizar_Click()
    With CrystalReport1
        .ReportFileName = App.Path & "\Relatorios\meuRelatorio.rpt" ' Caminho do relatório
        .Destination = 0 ' 0 = Tela (Preview)
        .WindowState = 2 ' Maximiza a tela do relatório
        .Action = 1 ' Executa o relatório
    End With
End Sub

Private Sub cmdImprimir_Click()
    With CrystalReport1
        .ReportFileName = App.Path & "\Relatorios\meuRelatorio.rpt"
        .Destination = 1 ' 1 = Impressora
        .Action = 1
    End With
End Sub

Explicação do Código

.ReportFileName → Define o caminho do arquivo .RPT.
.Destination → Define se o relatório será exibido na tela (0), impresso (1) ou salvo em um arquivo (2).
.Action = 1 → Executa a impressão ou exibição do relatório.
App.Path → Garante que o caminho seja relativo ao diretório do aplicativo.

Como Exportar um Relatório para um Arquivo

Caso deseje exportar o relatório para um arquivo TXT, PDF ou DOC, use:

Private Sub cmdExportar_Click()
    With CrystalReport1
        .ReportFileName = App.Path & "\Relatorios\meuRelatorio.rpt"
        .Destination = 2 ' Exportação para arquivo
        .PrintFileType = 31 ' 31 = PDF (Alterar conforme necessário)
        .PrintFileName = App.Path & "\Relatorios\meuRelatorio.pdf"
        .Action = 1
    End With
End Sub

Valores para PrintFileType:

  • 31 → PDF
  • 14 → TXT
  • 5 → DOC

Agora você pode facilmente integrar e imprimir relatórios no VB6 usando o Crystal Reports! 🚀

Posts Similares