[Resolvido]Salvar páginas em arquivos PDF individuais, renomeando com o nº do recibo

Olá,
O fórum tem me ajudado muito até o momento, mas não achei resposta para essa situação.
Tenho um relatório que gera recibos. Eu quero salvar cópias individuais desses recibos em formato PDF.
E preciso que o nome de cada arquivo seja o nº do recibo.

Alguém pode me ajudar?

Aguardo...

Boa noite, qual a versão do seu Access?

Boa Noite Marcelo,

A versão é 2007, e será rodado no runtime 2010.

..............

Alexandre

Mas uma coisa, está atualizado para SP2 do office?

Não sei te dizer, mas acredito que sim.
Onde verifico se está atualizado p/ SP2?

Windows XP ou Windows Server 2003

Clique em Iniciar, em Executar, digite "%programfiles%\Microsoft Office\Office12" na caixa Abrir e pressione ENTER.
Localize o executável ou arquivo principal na pasta.

Observação Dependendo das configurações do Windows, a extensão .exe do nome de arquivo pode não ser exibida.

Observação O arquivo Mso.dll está em uma pasta diferente. Para localizar o arquivo, execute estas etapas.

Clique em Iniciar, em Executar, digite "%programfiles%\Common Files\microsoft shared\OFFICE12" na caixa Abrir e pressione ENTER.
Localize o arquivo Mso.dll na pasta.

Windows Vista

Clique em Iniciar, digite "%programfiles%\Microsoft Office\Office12" na caixa Iniciar pesquisa e pressione ENTER.
Localize o executável ou arquivo principal na pasta.

Observação Dependendo das configurações do Windows, a extensão .exe do nome de arquivo pode não ser exibida.

Observação O arquivo Mso.dll está em uma pasta diferente. Para localizar o arquivo, execute estas etapas.

Clique em Iniciar, digite "%programfiles%\Common Files\microsoft shared\OFFICE12" na caixa Iniciar pesquisa e pressione ENTER.
Localize o arquivo Mso.dll na pasta.

Voltar para o início
Método 3: Use a caixa de diálogo Sobre o Microsoft Nome_do_Programa
A caixa de diálogo Sobre o Microsoft Nome_do_Programa exibe o seguinte:

O nome do programa
O número de versão do arquivo executável do programa
O número de versão do arquivo Mso.dll

O arquivo Mso.dll contém grande parte das informações usadas por todos os aplicativos do Office. Normalmente, quando o arquivo executável do programa é atualizado, o arquivo Mso.dll também é atualizado. Portanto, os dois números de versão são exibidos.

Se não tiver, baixe e instale, depois, te passo o procedimento, pois, só funciona a partir do SP2 do office...

http://www.microsoft.com/downloads/details.aspx?familyid=b444bf18-79ea-46c6-8a81-9db49b4ab6e5&displaylang=pt-br

SP2 rodando...

Aguardando as novas instruções.

Ja instalou?

Já era SP2

No evento de algum botão

DoCmd.OutputTo acOutputReport, "NomeDoRelatório", acFormatPDF, "LocalDeSalvamento/NomeDoArquivo"

Se não conseguir, poste aqui o seu bd q faço

Marcelo, bom dia,

Essa forma eu já tentei. Mas o problema é que se eu tiver um grupo de 10 recibos será gerado um único arquivo com os 10 recibos.
Obrigado pela orientação.

O que quero é um comando que crie automaticamente o recibo_001.pdf, recibo_002.pdf, recibo_003.pdf, recibo_004.pdf, recibo_005.pdf, recibo_006.pdf...


------------------
Alexandre

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Vieira,

Ainda não obtive resposta e não solucionei a questão.

Se puder ajudar agradeço.




---------------------------
Alexandre

Tente criar relatórios separados e exportar um a um para pdf.

Boa tarde Criquio,

Estou fazendo um a um.

Como faço para salvar o PDF com o valor de um campo do relatório? (o nº do recibo - chave primária)
Já vi exemplos que iserem a data, mas preciso do nº do recibo. No momento estou colando manualmente ao exportar em PDF.

Tente:

DoCmd.OutputTo acOutputReport, "NomeDoRelatório", acFormatPDF, "LocalDeSalvamento/" & Me.Código & ".pdf"

Não sei como está abrindo os relatórios, mas dependendo do caso, pode ser que dê para abrir todos automaticamente, mais ou menos assim:

Dim NC As Double

For NC = 1 To DMax("Código", "Tabela")

If Not IsNull(DLookup("Código", "Tabela", "Código=" & NC)) Then
DoCmd.OutputTo acOutputReport, "NomeDoRelatório", acFormatPDF, "LocalDeSalvamento/" & NC & ".pdf"
End If

Next

Criquio,

Obrigado pela orientação.