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


2 participantes

    [Resolvido]Não exporta para PDF

    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 13:39

    Olá.
    tenho na BD dois botões em CONTACTOS e LISTA para exportar para PDF, ao clicar:

    No form CONTACTOS, tem 1 contacto e abre o pdf com o contacto mais um sem dados com o código:
    Private Sub btn_pdf_Click()
    DoCmd.OutputTo acOutputReport, "Relatório FIRMA", "pdf", "", True, "", 0
    End Sub

    No form LISTA, tem a lista de contactos com a mesma especialidade e abre o pdf sem dados com o código:
    Private Sub btn_pdf_Click()
    DoCmd.OutputTo acOutputReport, "Relatório ESPECIALIDADES", "pdf", "", True, "", 0
    End Sub



    como resolver?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  FabioPaes 21/4/2016, 15:45

    Tente assim amigo:

    DoCmd.OutputTo acOutputReport, "Relatório ESPECIALIDADES", acFormatPDF, , True
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 15:56

    olá, Fabio Paes.

    Consegui. fiz assim:
    form LISTA:
    Private Sub btn_pdf_Click()

    On Error GoTo 1

    If Len(Me.cxcombo_ESPECIALIDADES & "") = 0 Then 'verifica se escolheu especialidade
           MsgBox "Escolha a especialidade", vbInformation
           Exit Sub
       Else
           DoCmd.OpenReport "Relatório ESPECIALIDADES", acViewPreview, , "[ESPECIALIDADE] = '" & Me.txtEspecialidade.Value & "'", acHidden
           DoCmd.Minimize
       End If
    DoCmd.OutputTo acOutputReport, "Relatório ESPECIALIDADES", "pdf", "", True, "", 0
    'Fecha o relatório
    DoCmd.Close acReport, "Relatório ESPECIALIDADES"

    1:
    If Err.Number = 2501 Then
           Err.Number = 0
           Exit Sub
       End If
       
    End Sub

    form CONTACTO:
    Private Sub btn_pdf_Click()

    On Error GoTo 1

    DoCmd.OutputTo acOutputReport, "Relatório FIRMA", "pdf", "", True, "", 0

    1:
    If Err.Number = 2501 Then
           Err.Number = 0
           Exit Sub
       End If
     
    End Sub

    o  acHidden não funciona bem , aparece no início, por isso pus minimizar.

    o problema foi que ao ver relatório FIRMA, apenas um contacto , o cabeçalho aparece desnecessariamente sem dados na página seguinte.
    Desvio-me do tópico criado (e desculpe-me), mas tem solução o relatório?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  FabioPaes 21/4/2016, 16:00

    Posta aqui seu relatório pra eu ter uma ideia melhor de como ele esta saindo...
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 16:02

    envio
    Anexos
    [Resolvido]Não exporta para PDF AttachmentCONTACTOS - 32&64bits - PDF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (191 Kb) Baixado 18 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  FabioPaes 21/4/2016, 16:29

    Mude o Codigo do Botão para:


    Código:

    Private Sub btn_pdf_Click()

    On Error GoTo 1

    If Len(Me.cxcombo_ESPECIALIDADES & "") = 0 Then 'verifica se escolheu especialidade
            MsgBox "Escolha a especialidade", vbInformation
            Exit Sub
        Else
            DoCmd.OpenReport "Relatório ESPECIALIDADES", acViewPreview, , "[ESPECIALIDADE] = [Forms]![LISTA]![cxcombo_ESPECIALIDADES]", acHidden
            DoCmd.Minimize
        End If
    DoCmd.OutputTo acOutputReport, "Relatório ESPECIALIDADES", acFormatPDF, , True
    'Fecha o relatório
    DoCmd.Close acReport, "Relatório ESPECIALIDADES"

    1:
    If Err.Number = 2501 Then
            Err.Number = 0
            Exit Sub
        End If
       
    End Sub

    E Mude sua cxcombo_ESPECIALIDADES Para essa consulta:

    Código:

    SELECT [LISTA DE ESPECIALIDADES].ESPECIALIDADES, [LISTA DE ESPECIALIDADES].CÓDIGO FROM [LISTA DE ESPECIALIDADES] ORDER BY [LISTA DE ESPECIALIDADES].ESPECIALIDADES;

    Que deverá funcionar!

    Obs: Inverti a Ordem dos dados de seu Cbo, ficando : Especialidade, Código. Ja que quer filtrar pelo NOME da Especialidade...
    Mudei la também a forma como é realizada o Filtro... Pois tem que indicar o caminho completo( forms.formularios.nomedocampo)
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 16:41

    na combox aparece o código, e no relatório nada. Fiz mal?

    podes mandar se fizeste aí?

    Shocked

    também o problema foi que ao ver relatório FIRMA, apenas um contacto , o cabeçalho aparece desnecessariamente sem dados na página seguinte
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 16:49

    o problema é o relatório FIRMA que aparece na página seguinte só o cabeçalho. só é preciso 1 contacto que aparece na 1ª página mas salta para uma 2ª página sem dados que exporta também para o pdf.

    de resto exportar para pdf está bem
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 16:51

    o meu pdf é o NITRO
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 17:01

    já acertei o relatório, passei o título para cabeçalho do relatório (antes estava cabeçalho da página )
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  FabioPaes 21/4/2016, 19:08

    To entendendo nada!

    Mas, veja aqui que esta exportando direitinho!

    Pesquise por exemplo Ameixa, e mande exportar!

    https://www.dropbox.com/s/mgwaszg03g3e28c/CONTACTOS%20-%2032%2664bits%20-%20PDF.rar?dl=0
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  alpedro 21/4/2016, 19:47

    Tudo ok.
    Obrigado.

    Very Happy
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  FabioPaes 21/4/2016, 19:51

    Esse mesmo Arquivo tem a outra correção do seu Outro Topico!

    Sobre o Dcount...

    Conteúdo patrocinado


    [Resolvido]Não exporta para PDF Empty Re: [Resolvido]Não exporta para PDF

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 13:03