CRYSTAL REPORT 9 COMO IMPRIMIR
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
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
Dim Report As New CrystalReport1
Private Sub Form_Load()
CrystalReport1.DiscardSavedData
CrystalReport1.Database.Verify
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.EnableExportButton = True
CRViewer1.EnableRefreshButton = True
CRViewer1.EnableGroupTree = False
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
charleston10 uma duvida pois o crystam report 4 vem com o vb e com a inst do CR9 tem que adicionar alguma dll ao vb6 algo assim pois ele esta dando o seguinte erro no codigo que vc passou!
os codigo que vc passou seria pra eu usar junto com oq postei ? pois nao vi onde vai a referencia ao arquivo que vai ser impresso ?
você usa o cristal para gerar os relatorio dentro ou fora do vb
fora do vb faço o relatorio no cystal report e depois chamo o relatorio
CrystalReport1.DataFiles(0) = App.Path & [Ô]\Cadastro.MDB[Ô]
CrystalReport1.SelectionFormula = [Ô]{clientes.CODIGO} = [ô][Ô] & Clientes.CODIGO & [Ô][ô][Ô]
CrystalReport1.ReportFileName = App.Path & [Ô]\CadCliente.rpt[Ô]
CrystalReport1.Action = 1 -= O ERRO ESTA NESTA LINHA !
que pode ser ?
CrystalReport1.SelectionFormula = [Ô]{clientes.CODIGO} = [ô][Ô] & Clientes.CODIGO & [Ô][ô][Ô]
CrystalReport1.ReportFileName = App.Path & [Ô]\CadCliente.rpt[Ô]
CrystalReport1.Action = 1 -= O ERRO ESTA NESTA LINHA !
que pode ser ?
ninguem ?
Tópico encerrado , respostas não são mais permitidas