EXPORTAR ACTIVE REPORT

ARNALDOCRUZ 27/03/2011 05:22:36
#369331
Bom dia

Colegas estou utilzando o ActiveReport Net 3.0

Quando usava a versão 2.4 no vb6 eu tinha uma função que abria um dialogo e eu selecionava a extensão que queria exportar.

Já no Net não funfa.

Alguem sabe como eu faço para exportar no ActiveReport Net 3.0

tipo selecionar se xls,ou PDF ou RTF

obrigado
ARNALDOCRUZ 27/03/2011 07:11:11
#369333
Eu consegui quem precisar segue o código abaixo

Imports DataDynamics.ActiveReports.Export.Pdf
Imports DataDynamics.ActiveReports.Export.Xls
Imports DataDynamics.ActiveReports.Document

Const pdfExportToolID As Long = 42

Private Sub VieRelatorio_ToolClick(ByVal sender As Object, ByVal e As DataDynamics.ActiveReports.Toolbar.ToolClickEventArgs) Handles VieRelatorio.ToolClick
If (e.Tool.Id = pdfExportToolID) Then
Dim cam As String = [Ô][Ô]
Dim Arquivo As String = [Ô][Ô]
With SaveFileDialog1
.FileName = [Ô]RelatorioCliente[Ô]
If .ShowDialog() = DialogResult.OK Then
If .FileName <> [Ô][Ô] Then
cam = Microsoft.VisualBasic.Right(.FileName, 3)
Else
SaveFileDialog1.Dispose()
Windows.Forms.Application.DoEvents()
Exit Sub
End If
ElseIf .ShowDialog() = Windows.Forms.DialogResult.Cancel Then
SaveFileDialog1.Dispose()
Windows.Forms.Application.DoEvents()
Exit Sub
End If
Arquivo = .FileName
End With
If UCase(cam) = [Ô]PDF[Ô] Then
Dim pdf As New DataDynamics.ActiveReports.Export.Pdf.PdfExport()
pdf.Export(Me.VieRelatorio.Document, Arquivo)
ElseIf UCase(cam) = [Ô]XLS[Ô] Then
Dim xls As New DataDynamics.ActiveReports.Export.Xls.XlsExport()
xls.Export(Me.VieRelatorio.Document, Arquivo)
End If
SaveFileDialog1.Dispose()
Windows.Forms.Application.DoEvents()
End If
End Sub

Agora alguem sabe como se coloca um progressbar pois quando a exposrtação é para excel demora um bucado

Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar