[Resolvido]Relatorio PDF

Boa Dia meus amigos.

Esta minha dúvida procurei na Busca deste Forum e cheguei a esse bd. Gerar um relatório em PDF.

Quando executo o arquivo no botão criado aparece a mensagem de erro 2282. Já procurei o erro mas ainda não consegui resolver.

Alguém pode me ajudar:

P.S: codVendas = Codigo (Autonumeração)
rel_NotaVenda = Relatorio para transformar em PDF
\Notas\ = Local a ser gravado


Private Sub btn_pdf_Click()

Dim strArquivo As String
Dim strLocal As String

strArquivo = "codvendas" & Me!codvendas & ".pdf"
strLocal = CurrentProject.Path & "\Notas\" & strArquivo


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

'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "rel_NotaVenda", acFormatPDF, strLocal

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

End Sub

Obrigado Avelino.
Vou atualizar e assim que possível volto a lhe responder

Obrigado Avelino.

Está quase perfeito.

O problema é que o meu Relatório possui 1 Formularios (rel_NotaVenda ) e um subformulario (rel_VendasClientes) .

Quando peço para gerar PDF somente um formulario (rel_NotaVenda ) está indo.

Como colocar os dois (rel_NotaVenda e rel_VendasClientes)

Após a atualização o sistema aceitou.
Obrigado mais uma vez