[Resolvido]Escolher um relatório na caixa de listagem e imprimir em PDF

Agradecia uma ajuda nesta duvida.
Tenho vários relatórios que são seleccionados numa caixa de listagem. Ao escolher um determinado relatório este deveria imprimir.
Consigo imprimir em PDF. Não imprime o seleccionado na caixa de listagem, sai-me sempre o primeiro relatório.

Agradeço aos Mestres que me mostre uma luz....

Não sei o código que está a utilizar. Deverá ser ... CaixaDeListagem.Column(0, CaixaDeListagem.ItemsSelected)

O código é este....

Private Sub NIRTO_Click()
On Error GoTo Err_NIRTO_Click

Dim blRet As Boolean
Dim stLinkCriteria As String

stLinkCriteria = "[RTOCAMPO1_ID]=" & Me![NIRTO]

blRet = ConvertReportToPDF("impCTO_E", vbnullstring, "C:\Users\Public\Documents\Base EHM\RTO BASE DE DADOS\PDF\" & "CERTIFICADO DE TRABALHO - " & Date & "_" & Format(Now(), "hh.mm.ss") & ".PDF", False, False)
blRet = ConvertReportToPDF("impCTO_COSTAS", vbnullstring, "C:\Users\Public\Documents\Base EHM\RTO BASE DE DADOS\PDF\" & "CERTIFICADO DE TRABALHO-Costas - " & Date & "_" & Format(Now(), "hh.mm.ss") & ".PDF", False, False)

Exit_NIRTO_Click:
Exit Sub

Err_NIRTO_Click:
MsgBox err.Description
Resume Exit_NIRTO_Click
End Sub

Access 2007

Obrigado

stLinkCriteria assume o valor que pretende?
Deve criar o relatório filtrado com o critério antes de mandar imprimir

sim, quando imprime para uma impressora funciona bem.....

Alexandre
Se tiveres outro código. Só pretendo seleccionar um relatório e imprimir em PDF, a dificuldade é imprimir o relatório que pretendo...

Alexandre desculpa eu meter o bedelho.
Marinho alem de estar sendo bem atendido pelo Alexandre, veja este link você vai entender melhor e adptar em se sistema de maneira bem facil.

http://www.usandoaccess.com.br/tutoriais/tuto12.asp?id=1#inicio


caso você precise que o pdf abra coloque após o código abaixo o que esta em vermelho


Dim strArquivo as string
Dim strLocal as string

strArquivo = "Proposta" & me!nProposta & ".pdf"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo

'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "rltProposta", acViewPreview,,"nProposta=" & Me!nProposta,acHidden

'Gera arquivo pdf do relatório previamente aberto e filtrado.
Docmd.OutputTo acOutputReport,"rltProposta",acformatPDF,strLocal,1

'Fecha o relatório
DoCmd.Close acReport, "rltProposta"

Afonso
Obrigado pela dica. apliquei mas não deu certo nesta parte,strArquivo = "Proposta" & Me!nProposta & ".pdf"
Anexo uma foto, para ilustrar como é seleccionado o relatório pretendido para converter em PDF. Para dar uma ideia do pretendido.

Agradeço mais uma vez a vossa colaboração neste assunto

Amigos,

Vou fazer uma observação.

Na linha abaixo:

strArquivo = "Proposta" & Me!nProposta & ".pdf"

Resultaria no nome de arquivo, por exemplo: Proposta001.pdf

Então, "Proposta" pode ser substituido, por exemplo, por "RTO" e Me!nProposta pelo campo RTO onde são filtrados os relatorios. Assim o resultado para o nome do arquivo seria: RTO280-10

Outra coisa, este código que o amigo afonso sugeriu só funciona nas versões MS Access 2007 e 2010.

Pela imagem voce filtra o relatorio pretendido atraves de uma caixa de combinaçao e não em uma caixa de listagem. Sendo assim, se voce utiliza o Access 2007 ou 2010, sugiro que de uma olhada no link abaixo:

http://maximoaccess.forumeiros.com/t5847-caixa-de-dialogo-imprimir-14-opcoes

Sucesso!

Amigão segue um exemplo em access 2010 podendo ver no access 2007 com o formulário desvinculado podendo pesquisar, inserir, atualizar, excluir e imprimir e a impressão em pdf podendo ver pelo registro em tela ou todos os registro.

Observe que é nessesário ter uma pasta com nome Dados junto com seu arquivo para que possa ser arquivado o seu pdf.

Espero que esse exemplo lhe ajude

Bom estudo

João Afonso

Desculpa pela demora da resposta, pois estive fora.
Agradou-me muito o teu exemplo. Estou a tentar a adaptar á minha BD.
Assim que tiver sucesso, é com agrado que te dou um toque da minha satisfação.
Mais uma vez agradeço a todo forum pelo sucesso e ajuda que me tem pretado sempre que exponho algum assunto.
O meu muito obrigado.

Obrigado Marinho pelo retorno, qualquer duvida é só retornar.