abrir relatorio com crystal report 9


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: abrir relatorio com crystal report 9

assistency

NOVA FATIMA PR
PR - BRASIL

Postada em 16/03/2011 21:49 hs

Pessoal blz, e o seguinte estou migrando aos poucos minhas ferramentas e agora estou no crystal report 9 ja baixei fiz o 1 relatorio ja esta salvo como (CadCliente.rpt) antes no CR4 eu chamava da seguinte forma quando eu queria que imprimisse somente o cadastro que estava na tela do cliente

CrystalReport1.DataFiles(0) = App.Path & "Cadastro.MDB"
CrystalReport1.SelectionFormula = "{clientes.CODIGO} = '" & Clientes.CODIGO & "'"
CrystalReport1.ReportFileName = App.Path & "CadCliente.rpt"
CrystalReport1.Action = 1

ai ele imprimia somente o registro que estava com ele na tela agora como fica isso no CR9 ja procurei aqui no forum ams nao encontrei nada que me orientase

assistency

NOVA FATIMA PR
PR - BRASIL

Postada em 16/03/2011 22:16 hs

CrystalReport1.DataFiles(0) = App.Path & "Cadastro.MDB"
CrystalReport1.SelectionFormula = "{clientes.CODIGO} = '" & Clientes.CODIGO & "'"
CrystalReport1.ReportFileName = App.Path & "CadCliente.rpt"

O ERRO ESTA NESTA LINHA ?
CrystalReport1.Action = 1

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 17/03/2011 11:35 hs

Pois é meu caro.
na versão 9.0 não funciona igual como das 8.5, 8.0, 7.0, 4.5, mudou mesmo.
ja não pode ser chamado pelo action=1

olha so como mudou, precisa de referencias no vb para chamar:

Dim crystal As CRAXDRT.Application 'LOADS REPORT FROM FILE
Dim report As CRAXDRT.report            'HOLDS REPORT

CRViewer.DisplayBorder = False  'MAKES REPORT FILL ENTIRE FORM
CRViewer.DisplayTabs = False            'THIS REPORT DOES NOT DRILL DOWN, NOT NEEDED
CRViewer.EnableDrillDown = False        'REPORT DOES NOT SUPPORT DRILL-DOWN
CRViewer.EnableRefreshButton = False    'ADO RECORDSET WILL NOT CHANGE, NOT NEEDED

Set crystal = New CRAXDRT.Application           'MANAGES REPORTS

Set report = crystal.OpenReport(App.Path & "
eport1.rpt")        'OPEN OUR REPORT

report.DiscardSavedData                         'CLEARS REPORT SO WE WORK FROM RECORDSET
report.Database.SetDataSource rs        'LINK REPORT TO RECORDSET

CRViewer.ReportSource = report  'LINK VIEWER TO REPORT
CRViewer.ViewReport                             'SHOW REPORT

Do While CRViewer.IsBusy                        'ZOOM METHOD DOES NOT WORK WHILE
   DoEvents                                             'REPORT IS LOADING, SO WE MUST PAUSE
Loop                                                            'WHILE REPORT LOADS.

CRViewer.Zoom 94

assistency

NOVA FATIMA PR
PR - BRASIL

ENUNCIADA !

Postada em 21/03/2011 15:59 hs

R.A. gostaria de agradecer pela boa vontade sabe eu como iniciante nesta linguagem vejo que poucos se preocupam em dividir experiencias e conhecimento. obrigado pela força.

Pensamento: Hoje você ajuda, amanha é ajudado. Assim caminha a humanidade.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR