Salvar em PDF

Boa tarde.

Por gentileza, utilizo o código abaixo para salvar em PDF um relatório, possuo dois códigos, um que consigo extrair perfeitamente o PDF, porém a descrição do arquivo a ser salvo não aparece na janela de escolha do local a ser salvo (Windows) e o outro aparece a descrição mas não salva.

São eles:

Código 1 - Não insere o nome (salva com sucesso):

Código:

Dim fso As Object

Set fso = Application.FileDialog(4)
fso.AllowMultiSelect = False

If fso.Show Then
    DoCmd.OutputTo acOutputReport, "Comprovante de Vendas", acFormatPDF, fso.SelectedItems(1) & "\Comprovante de Vendas" , False
End If

Código 2 - Insere o nome (não salva):

Código:

On Error Resume Next
DoCmd.OutputTo acOutputReport, Reports(0).Name & " - Pedido " & StrConv(Format(Me!Id_Vendas, "0000000"), vbProperCase) & ".pdf", acFormatPDF, , , , , acExportQualityPrint

Gostaria de uma ajuda, pois necessito utilizar o método do código 2.

De antemão agradeço!

Marta

Olá Marta,
Dê uma olhada neste tópico:

http://maximoaccess.forumeiros.com/t9034-resolvidorelatorio-em-pdf-gera-salva-mas-nao-fica-aberto?highlight=salva+pdf

Obrigada rdrck.

Mas infelizmente não encontrei a solução para o meu caso.

Marta

No segundo parâmetro, que é o nome do relatório, não deve incluir o ".pdf":

DoCmd.OutputTo acOutputReport, Reports(0).Name & " - Pedido " & StrConv(Format(Me!Id_Vendas, "0000000"), vbProperCase), acFormatPDF, , , , , acExportQualityPrint

Deve se certificar de que Reports(0).Name & " - Pedido " & StrConv(Format(Me!Id_Vendas, "0000000") é o nome de um relatório existente.

Cláudio,

Obrigada pela ajuda!

Então, no momento que vou salvar o arquivo ocorre o erro:

Erro em tempo de execução '2059'
O Sistema não pode localizar o objeto '|1'.

** Isso mesmo, o procedimento utiliza o nome do relatório, caso eu tenha digitar o nome no código não vejo problema.

De qualquer forma ainda não consigo salvar o PDF nesse método.

Mas agradeço...

Marta

Olá Marta,

Esse erro ocorre porque não existe o relatório que está tentando "salvar" em pdf.

A sintaxe é:

DoCmd.OutputTo ObjectType, ObjectName, OutputFormat, etc...

Então, se está tentando usar este método para salvar um relatório em pdf:

DoCmd.OutputTo acOutputReport, "NomeDoRelatorio", acFormatPDF, etc...

Se o nome do seu relatório é "Teste" e Me!Id_Vendas é 1, por exemplo, vai ocorrer o seguinte:

DoCmd.OutputTo acOutputReport, "Teste - Pedido 0000001.pdf", acFormatPDF, , , , , acExportQualityPrint

Certamente o seu relatório não está nomeado com ".pdf" no final, por isso ocorre o erro.
Então deve retirar o ".pdf" do código, e depois confirmar se existe o relatório "Teste - Pedido 0000001".

Se quiser enviar uma cópia do banco de dados, posso tentar corrigir.

Com a devida permissão dos colegas que estão a responder....um pitaquinho meu...

a- no evento ao clicar do botão que vai salvar/gerar o *.PDF:

Private Sub bt_gerarPDF_Click()
Dim strArquivo As String
Dim strLocal As String

strArquivo = "Orçamento Nº" & Me!IdOs & ".pdf"
' nome do arquivo a ser salvo      chave prima

strLocal = CurrentProject.Path & "\enviados\" & strArquivo ' criar essa pasta (enviados) onde está o banco de dados

'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "rptOs", acViewPreview, , "IDOs=  " & Me!IdOs, acHidden
'                nome do relatorio               chave prima       chave prima
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "rptOs", acFormatPDF, strLocal

'Fecha o relatório
DoCmd.Close acReport, "rptOs"
End Sub

Olá Marta,
O problema já foi sanado?
Se sim, não esqueça de clicar no [Resolvido], para encerrar o tópico.
Valeu.