[Resolvido]1 relatório exportar para vários arquivos

Boa tarde!

Eu estou aqui, pois fiz várias pesquisas na internet e em todos os lugares, não obtive a luz que precisar para solucionar o meu problema. Então, peço ajuda aos universitários.

Utilizo o access 2003.

Tabela:
cliente

numero_do_cliente
nome
endereco
observacao

consulta:
consulta_cliente
numero_do_cliente
nome
endereco
observacao

relatório
relatorio_geral_de_clientes

numero_do_cliente
nome
endereco
observacao


Dúvida:
o relatório é gerado, até aí tudo perfeito, mas a minha dúvida é como pegar um relatório único e transformar em vários arquivos do word ou pdf, POR CLIENTE, e salvar todos os relatórios POR CLIENTE, em uma pasta específica.

Existe uma forma de fazer isso? Sem passar muito trabalho, ou seja, o relatorio_geral_de_clientes pode constar 10 ou 1000 clientes, então ao ser gerado o sistema exporta para uma pasta do computador um relatório por cliente, em word ou pdf, sem eu precisar fazer uma consulta com parâmetro de nome, e depois ter que gerar cada relatório manualmente, por cliente, perderia muito tempo.

Pois, o meu papel é ter que gerar mensalmente um relatório por cliente e disponibilizar em uma pasta da rede, mas eu acho que o access consegue fazer, só eu que não consigo mostrar pra ele, ehehehhe.
Desde já, agradeço de antemão, por qualquer link ou sugestão que alguém já precisou fazer isso com cliente, ou por nota, ou por pedidos, eu tenho certeza que já foi necessário desenvolver tal serviço.

Boa tarde Carmelito, seja bem vindo ao Fórum!


Bem,
Crie uma pasta dentro da pasta do BD e a nomeeie: Relatorios

Crie um Módulo e o nomeeie VarPublicas
Nele crie uma variável:
Public StrSQL as String


EM um botão no Form:

Private Sub btnRelatrorio_Click()
On Error GoTo trataerro
Dim X As Integer
Dim StrCliente As String

'Aqui carrego a variável com o número de Registros da tabela
X = DCount("*", "TblExemplo")
'Utilizo o For para ir gerando uma SQL filtrada com o valor de X = Codigo do CLiente
'O Relatório abrira com a propriedade RecordSource baseado nesta String
For X = 1 To X
'Carrego a Variável com os dados da tabela filtrado pelo código
StrSQL = "SELECT * from tblExemplo where Código = " & X & ""
'Carrego a Variável StrCliente com o nome do CLiente a cada laço, para aplicar no comando que gera o PDF
StrCliente = DLookup("NomeCliente", "tblExemplo", "Código =" & X & "")
'Gero o Relatório em PDF
DoCmd.OutputTo acOutputReport, "RptExemplo", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatorios\Relatorio_" & StrCliente & Format(Now, "dd-mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
'Vai para o próximo valor de X
Next X
'Limpo a Variável
StrSQL = ""
Exit Sub

'Rotina para tratamento de erros
Exit_TrataErro:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub

trataerro:
If Err.Number = 0 Then
MsgBox "xxxxxxxxx", vbInformation, "Aviso"
Else
DoCmd.Hourglass False
DoCmd.Echo True
Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
& vbNewLine & vbNewLine & "Descrição: " & Err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
Resume Exit_TrataErro
End If

End Sub



No Relatório:

Não deve ser baseado em nenhuma tabela.
Coloque os campos e neles digite os campos referentes a tabela, o RecordSource do mesmo será carregado com a Variável Publica StrSQL, no código do FOrm.


Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = StrSQL
End Sub


>>>>> para utilizar ese tipo de rotina não deve haver saltos na numeração automática da tabela, senão haverá erros.
Para que isto não ocorra poderá utilizar um modulo de auto-numeração. Aqui no fórum há exemplos disso.

Cumprimentos.

Eu acho que esse código é para o access 2007, o meu é 2003.
Em primeiro lugar, quero agradecer pela ajuda, depois de algum tempo, ainda bem que alguém passou por esse problema, pois estava pensando será que sou só eu.
em segundo lugar: quero dizer, puxa, que explicação, valeu, se todas as respostas fossem assim, nossa, nota 1000.
porém, eu fiz tudo igual, mas deu erro ao executar o botão e abriu o microsoft visual basic, dizendo que tem erro no código: DoCmd.OutputTo
será que pode ser a versão do access? o meu é 2003, e não posso mudar para outra versão.

Não sei ao certo pois comecei no 2007, mas creio que esse comando é da versão 2007, dê uma pesquisada sobre exportar relatorios para PDF... Creio que há um modulo que faz isso no 2003 (um código) ai é so adaptar..

Ps. a propósito nunca havia precisado disso, porém se aprende muito e procurar soluções para os problemas postados aqui no fórum, assim sigo aprendendo cada dia mais, justamente em queimar alguns neurônios para ajudar... Espero que a medida que for aprendendo, vá compartilhando e ajudando os demais.

De uma pesquisada sobre isso, qualquer coisa retorne aqui.

Abraços.

Agradeço ajuda. Assim que um colega conseguir elaborar o exemplo, com autorização dele, eu vou disponibilizar o exemplo para esclarecer a dúvida de muitos. Valeu pela ajuda. Nem sempre há tempo para ensinar pescar, as vezes, (as situações das empresas, e a pressão), precisamos do peixe pronto. Valeu.

Aqui tem o Exemplo do BD 2003 para exportar para PDF.


http://www.lebans.com/reporttopdf.htm


Cumprimentos.

Muito obrigado Piloto, com base no seu código e com o exemplo, posso ter uma ideia por onde começar. valeu pela ajuda.

O Fórum agradece o Retorno.

Com base na mesma solução: poderia incluir senha de abertura no arquivo pdf?

No meu caso, vou gerar boletins escolares e seria interessante que seja solicitada uma senha de abertura, que pode ser algum dado do aluno (rg, cpf, matricula, data de nascimento, etc)