COMO ABRIR CRYSTAL REPORT COM CRVIEWER.DLL ?

CHARLESTON10 24/02/2011 20:16:37
#366529
COMO ABRIR CRYSTAL REPORT COM CRVIEWER.DLL ?

ALGUEM ME PASSA O PROJETO TESTE ?
CHARLESTON10 25/02/2011 12:53:38
#366583
alguem ?
FNANDOOD 27/02/2011 13:34:31
#366701
Aqui vai um exemplo, inclusive para gerar o PDF também: (testei com o CR 8.5 e o CR 9.22), importante referênciar o Crystal Report Activex Designer, e incluir o crview no form.

[ô]PROJECT - REFERENCES: REFERENCIAR CRYSTAL REPORT 8.5 ACTIVEX DESIGNER OU VERSAO MAIOR
[ô]DEPOIS ADICIONAR COMPONENTE CRYSTAL REPORT VIEWER AO FORM
Dim crxReport As CRAXDRT.Report
Dim CRXAPPLICATION As New CRAXDRT.Application
Set crxReport = CRXAPPLICATION.OpenReport([Ô]C:\dct.RPT[Ô], 1)
crxReport.DiscardSavedData


With crxReport
.PaperSize = crDefaultPaperSize
.PaperOrientation = crLandscape
.LeftMargin = 0
.TopMargin = 0
End With

[ô]FAZ O CRVIEWER VISUALIZAR O DOCUMENTO DO CRYSTAL REPORTS
With crv
[ô]Seta o documento
.ReportSource = crxReport
[ô]carrega a imagem no view
.ViewReport
.Zoom 80
[ô]mostra o botão de exportar
.EnableExportButton = True
[ô]esconde outras tabs
.DisplayTabs = False
[ô]esconde a toolbar
.DisplayToolbar = True
.DisplayBackgroundEdge = True
.DisplayGroupTree = False
.EnablePrintButton = True
End With

With crv
.DisplayBorder = False
[ô]ESCONDE O SIMBOLO DO CRYSTAL REPORTS
.EnableAnimationCtrl = False
.EnableCloseButton = True
.EnableDrillDown = False
.EnablePopupMenu = False
.EnableProgressControl = True
.EnableSearchExpertButton = False
.EnableZoomControl = True
.PrintReport
End With


[ô]EXPORTA PARA PDF
With crxReport
.ExportOptions.DiskFileName = [Ô]c:\fernando.pdf[Ô]
.ExportOptions.DestinationType = crEDTDiskFile
[ô].ExportOptions.PDFExportAllPages = True
[ô]ESCOLHE O TIPO DE DOCUMENTO, SE é PDF OU OUTROS
.ExportOptions.FormatType = crEFTPortableDocFormat
[ô]ESCONDE A JANELA DE EXPORTAR
.Export False
End With
Tópico encerrado , respostas não são mais permitidas
Voltar