[Resolvido]Ao criar PDF cria para todos os produtos e eu queria só o da tela

Boa tarde Amigos

A linha abaixo cria PDF para os produtos da tabela.

  DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal

Queria adicionar a condição abaixo, para criar só Um produto + ou - isto ????

DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"

'--------------------------------------------------------------------------------------------

Obrigado

Código completo:

If MsgBox("Confirma a Impress?o do Modelo da Ref. da " & [Ref] & "" & Chr(13) & " Modelo " & [Modelo] & "", vbYesNo, "Aviso") = vbYes Then

If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim Caminho As String
Caminho = BackEndPath & "\PDF\"

Dim strArquivo As String
Dim strLocal As String
  strArquivo = "Ficha de Modelo da Ref - " & [Ref] & " - " & [Modelo] & " " & [Linha] & ""
  strLocal = Caminho & strArquivo & ".PDF"
'Gera arquivo pdf do relat?rio previamente aberto.
  DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal

On Error Resume Next
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else
End If
DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"
End If

Eu utilizo o seguinte código:

Código:

'Cria o arquivo PDF
DoCmd.OpenReport "rl_OS", acViewPreview, , "NumOS= '" & NumOS & "'", acHidden
DoCmd.OutputTo acOutputReport, "rl_OS", acFormatPDF, Environ("USERPROFILE") & "\Desktop\" & NumOS & ".pdf", False
DoCmd.Close acReport, "rl_OS"

Que salva o arquivo PDF na área de trabalho do usuário.

Eu abro o relatório oculto e depois exporto o relatório para pdf.
Fica fácil adaptar ao seu caso.

Esta solução achei em algum tópico neste fórum, infelizmente que não me recordo qual.

Obrigado Thiago

Ajudou mesmo .