[Resolvido]Não exporta para PDF

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?

Tente assim amigo:

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

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?

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

envio

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)

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

podes mandar se fizeste aí?



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

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

o meu pdf é o NITRO

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

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

Tudo ok.
Obrigado.

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

Sobre o Dcount...