MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro ao Gerar PDF e Imprimir

    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  Maurício Bruno 30/7/2016, 00:10

    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.
    toyebom
    toyebom
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  toyebom 30/7/2016, 02:17

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  Maurício Bruno 30/7/2016, 03:13

    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.
    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Erro ao Gerar PDF e Imprimir Empty Re: Erro ao Gerar PDF e Imprimir

    Mensagem  Maurício Bruno 2/8/2016, 15:21

    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.
    toyebom
    toyebom
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  toyebom 4/8/2016, 01:16

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  Maurício Bruno 4/8/2016, 18:07

    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.
    toyebom
    toyebom
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  toyebom 4/8/2016, 18:21

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  Maurício Bruno 4/8/2016, 18:38

    Toy,

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

    Grato.
    toyebom
    toyebom
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    Erro ao Gerar PDF e Imprimir Empty Erro ao Gerar PDF e Imprimir

    Mensagem  toyebom 4/8/2016, 21:25

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: 16/4/2021, 21:13