Erro ao Gerar PDF e Imprimir

Galera,
Gostaria de uma ajuda, pois estou tentando após abrir o relatório e modo de visualização eu posso gerar um arquivo em PDF ou imprimir, porém, o meu código esta falhando na linha em vermelho quando vou gerar um PDF. Já tentei inúmeros código não encontrei solução.

Detalhe, os botões estão em um formulário de consulta.

Código:

Private Sub btn_gerar_relatorio_Click()
     DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
     DoCmd.Maximize
    If MsgBox("Confirma Salvar em PDF?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    [color=#ff0000]DoCmd.OutputTo acOutputReport, "Relatório de Agendamento - " & Format(Now, "dd.mm.yyyy") & ".pdf", , False, , , acOutputReport[/color]

    If MsgBox("Arquivo Salvo com Sucesso?", vbInformation, "Salvando em PDF") Then
    DoCmd.Close
    End If
    Else
    DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
    DoCmd.Maximize
    End If

Já para emitir não aparece a opção da impressora e falha também.

Código:

Private Sub btn_imprimir_relatorio_Click()
     DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
     DoCmd.Maximize
    If MsgBox("Confirma a impressão do Relatório?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    DoCmd.PrintOut
    End If
    Else
    DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
    DoCmd.Maximize
    End If

Obrigado pela ajuda.

Não sei se ajuda mas vê aqui

https://www.maximoaccess.com/t9034-resolvidorelatorio-em-pdf-gera-salva-mas-nao-fica-aberto

https://www.maximoaccess.com/t22148-resolvidocriar-pdf

https://www.maximoaccess.com/t8806-resolvidoerro-ao-gerar-pdf

se já mandas abrir ao inicio para que mandar abrir outra vez? Já está aberto não pode voltar a abrir.

Private Sub btn_imprimir_relatorio_Click()
    DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview, , "[Chaveprimária] = " & [Chaveprimária]
    DoCmd.Maximize
   MsgBox("Confirma a impressão do Relatório?", vbYesNo + vbInformation, "Atenção") = vbYes Then
   DoCmd.PrintOut


No primeiro código para quê o False? tira e corrige assim a ver se dá. Também acho que tens muitas virgulas na parte onde tens o False. Não são necessários os If para abrir as caixas de mensagem MsgBox

Private Sub btn_gerar_relatorio_Click()
    DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview, , "[Chaveprimária] = " & [Chaveprimária]
    DoCmd.Maximize
   MsgBox("Confirma Salvar em PDF?", vbYesNo + vbInformation, "Atenção") = vbYes Then
   DoCmd.OutputTo acOutputReport, "Relatório de Agendamento - " & Format(Now, "dd.mm.yyyy") & ".pdf", , , , , acOutputReport

   MsgBox("Arquivo Salvo com Sucesso!", vbInformation, "Salvando em PDF")
   DoCmd.Close

-------------

Mais uma dica, eu tive problemas com o pdf no windows xp e office 2007 mas após upgrade para o sp2 ficou resolvido.

No site da microsoft, para quem não tem o office 2007 atualizado existe um ficheiro chamado

SaveAsPDFandXPS.exe

podes ver aqui

http://www.microsoft.com/pt-br/download/details.aspx?id=7

mas já que atualizaste para o Seven e funciona, então nãoo vale a pena o trabalho

Amigão,

Fiz algumas correções baseadas na que você me passou e nos links, porém, apresentaram alguns erros:
1 - Ao imprimir
SOLUCIONADO

2 - Ao Gerar o PDF
Ele não seleciona automaticamente o formato de saída PDF.
Quando seleciono manualmente e mando salvar em qualquer diretório, apresenta o erro "Erro em tempo de execução 2059" - Não pode localizar o objeto.

Código:

Private Sub btn_gerar_relatorio_Click()
    DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
    DoCmd.Maximize
    DoCmd.OutputTo acOutputReport, "Relatório de Agendamento - " & Format(Now, "dd.mm.yyyy") & ".pdf", , , , , acOutputReport
    If MsgBox("Confirma Salvar em PDF?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.PrintOut
    If MsgBox("Arquivo Salvo com Sucesso?", vbOK + vbInformation, "Salvando em PDF") = vbOK Then
DoCmd.Close
    End If
    End If
End Sub

Agradecido pela ajuda.

Fera,

Continua dando erro "Erro em tempo de execução '2059': Não pode localizar o objeto l1"

Código:

Private Sub btn_gerar_relatorio_Click()
    DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
    DoCmd.Maximize
    If MsgBox("Confirma Salvar em PDF?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    DoCmd.OutputTo acOutputReport, "Relatório de Agendamento - " & Format(Now, "dd.mm.yyyy"), acFormatPDF, , , , , acOutputReport
'DoCmd.PrintOut
    If Err = 2501 Then 'usando
    Err.Clear
    If MsgBox("Arquivo Salvo com Sucesso?", vbOK + vbInformation, "Salvando em PDF") = vbOK Then
DoCmd.Close
    End If
    End If
    End If
End Sub


Grato.

Tenta algo assim

Private Sub btn_gerar_relatorio_Click()
Dim strArquivo As String
Dim strLocal As String
Dim strDocumento As String
Select Case MsgBox("DESEJA CRIAR PDF?", vbInformation + vbYesNoCancel, "Agendamento do Treinamento")
Case vbYes
DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview
DoCmd.Maximize
strLocal = CurrentProject.Path & "\Pasta
strDocumento = "Relatório de Agendamento"
DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & "Relatório de Agendamento - " & Format(Now, "dd.mm.yyyy") & ".pdf"
DoCmd.OutputTo acOutputReport, "Agendamento do Treinamento", acFormatPDF, strLocal
End Sub

Toy,

Continua dando erro "Erro em tempo de execução '2059': Não pode localizar o objeto l1"

E não consigo achar e resolver o problema.

Agradeço antecipadamente a atenção e ajuda.

strLocal = CurrentProject.Path & "\Pasta

tens de criar primeiro a pasta de destino

CurrentProject.Path refere a pasta onde está a bd e & "\Pasta é a pasta que criaste dentro da pasta do bd que substituis o nome Pasta pelo nome da que criaste.

Só estou a dar um exemplo que tens de adaptar não é o código definitivo.

Toy,

Neste caso, quero deixar a opção para a pessoa escolher onde ela deseja salvar.

Grato.

Então da forma que disse não dá, tens de arranjar de forma que pergunte onde queres guardar.
Deve ser só mudar o strLocal = CurrentProject.Path & "\Pasta para outro comando mas nunca fiz por isso não sei.
Pesquisa no forum pode ser que encontres.