Exportando documentos em Crystal Reports .NET

Frequentemente no desenvolvimento de nossas aplicaç�es nos deparamos com a seguinte situaç�o: como exportar um relat�rio em Crystal Reports para um arquivo de formato .DOC, .XLS ou mesmo .PDF? O objetivo do artigo � demonstrar o recurso de exportaç�o para alguns tipos de arquivos do Crystal Reports .NET, adicionando � aplicaç�o recursos para que o usu�rio consiga gerar um arquivo em um determinado formato e imprimi-lo.

Com um projeto criado e uma base de dados que ser� utilizada para alimentar o relat�rio, vamos inserir tr�s bot�es em nossa aplicaç�o, conforme a Figura 1.

Figura 1. Formul�rio da Aplicaç�o Exemplo

Cada bot�o ser� respons�vel por exportar o relat�rio em um formato especifico. No modo de c�digo, vamos definir uma nova funç�o chamada ExportarDocumento, como mostra a Listagem 1.


public Function ExportarDocumento(ByVal tipoFormato As Integer) As Boolean
 Dim CrExportOptions As [Shared].ExportOptions
 Dim CrDiskFileDestinationOptions As New [Shared].DiskFileDestinationOptions()
 Dim CrFormatTypeOptions As New [Shared].PdfRtfWordFormatOptions()
 Dim crystalReport1 As New CrystalReport1
 CrExportOptions = crystalReport1.ExportOptions
 crystalReport1.SetDatabaseLogon("sa", "ilheus10")
 With CrExportOptions
	 .ExportDestinationType = [Shared].ExportDestinationType.DiskFile
 	'rtf
 	If tipoFormato = 1 Then
 		CrDiskFileDestinationOptions.DiskFileName = "C:\documento.doc"
 		.ExportFormatType = [Shared].ExportFormatType.RichText
 		'pdf
 		ElseIf tipoFormato = 2 Then
 		CrDiskFileDestinationOptions.DiskFileName = "C:\documento.pdf"
 		.ExportFormatType = [Shared].ExportFormatType.PortableDocFormat
 	ElseIf tipoFormato = 3 Then
		 CrDiskFileDestinationOptions.DiskFileName = "C:\documento.xls"
 		.ExportFormatType = [Shared].ExportFormatType.Excel
	 End If
	 .FormatOptions = CrFormatTypeOptions
 	.DestinationOptions = CrDiskFileDestinationOptions
 End With
 Try
 	crystalReport1.Export()
	 Return True
 Catch err As Exception
 	Return False
 End Try
End Function

Listagem 1. C�digo da funç�o ExportarDocumento

Antes de iniciar o c�digo da funç�o ExportarDocumento devemos importar a namespace para manipular o CrystalReports:

Imports CrystalDecisions

O objeto ExportOptions � respons�vel por determinar como e para onde o arquivo ser� exportado e recebe duas propriedades para exportaç�o: o CrDiskFileDestinationOptions e o ExportFormatType. O primeiro determina onde o arquivo ser� exportado (no nosso exemplo estamos exportando para a unidade C:\ ) e com qual nome. J� o segundo informa o tipo de arquivo a ser exportado, que depender� do par�metro especificado na funç�o: 1 � RTF , 2 � PDF , 3 � XLS .

Por �ltim,o escreveremos o c�digo para o evento click dos bot�es que ser�o respons�veis por exportar os relat�rios conforme a Listagem 2.


 Private Sub Button1_Click(ByVal sender As System.Object,
   ByVal e As System.EventArgs) Handles Button1.Click
 If ExportarDocumento(2) = True Then
 MsgBox("Documento exportado para C:\documento.pdf")
 Else
 MsgBox("Erro ao exportar o documento")
 End If
 End Sub

 Private Sub Button2_Click(ByVal sender As 
  System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 If ExportarDocumento(1) = True Then
 MsgBox("Documento exportado para C:\documento.rtf")
 Else
 MsgBox("Erro ao exportar o documento")
 End If
 End Sub

 Private Sub Button3_Click(ByVal sender 
  As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  If ExportarDocumento(3) = True Then
   MsgBox("Documento exportado para C:\documento.xls")
  Else
   MsgBox("Erro ao exportar o documento")
  End If
 End Sub

Listagem 2. Evento Click< dos bot�es

Execute sua aplicaç�o e veja o resultado � como o da Figura 2.

Figura 2. Documentos Exportados

Exportando documentos em Crystal Reports .NET

Veja nesse artigo como exportar um relatório em Crystal Reports para um arquivo de formato .doc, .xls ou mesmo .PDF.

Artigos relacionados