[Resolvido]Salvar formulário em PDF filtrando o codigo atual

olá pessoas!


Tenho esse código abaixo que salva pra mim o formulário em PDF, mas como eu tenho vários dados de outros cadastros o sistema gera tudo ao invés de salvar o atual

gostaria de aplicar um filtro com este código como que eu faço?


DoCmd.OutputTo acform, "rtl_embalador_foto", acFormatPDF, "", True, ""





obs: tenho uma caixa de texto chamada de código talvez seria a referência

Bom eu utilizo este comando para gerar e armazenar.

DoCmd.OutputTo acOutputReport, "2-PEDIDO_COMPRA_PRODUTOS_LHM", "PDFFormat(*.pdf)", CurrentProject.path & "\Enviados\PEDIDO DE COMPRA Nº " & (Me!Número_Pedido_Gerado) & " - MATERIAL.pdf", False, "", 0, acExportQualityScreen


Funciona perfeitamente.

Olá


o seu código tem o mesmo efeito do meu, ele salva tudo

o meu formulário é do tipo simples com as configurações da tabela, ou seja, você navega pra frente ou pra trás nos registros. E quando clica no botão para salvar a tela atual para .pdf o código entende que são todos os registros e na verdade eu só quero o atual.

Assim;

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim sFiltro As String

        sFiltro = "[código]= " & Me.código
        
        Me.Filter = sFiltro
        Me.FilterOn = True
        
        DoCmd.OutputTo acForm, "rtl_embalador_foto", acFormatPDF, "", True, ""
        
        Me.Filter = ""
        Me.FilterOn = False
        
End Sub

Exatamente o que eu precisava!!!

Muito obrigado JP e cláudio pela força!

Forte abraço.

Obrigado pelo retorno o forum agradece.

Sempre o Mestre JPaulo !!
As dicas são ótimas, até eu aproveitei.
Abraços.