[Resolvido]Imprimir arquivos pdf selecionados

Boa tarde!

Bd em Access 2010.

O Bd possui uma pasta externa com nome de "Documentos". Dentro desta pasta são salvos registros no formato pdf.
Ex.:
00001.pdf
00002.pdf
00003.pdf

e assim consecutivamente...

O Bd possui um formulário contínuo que consta em cada linha o mesmo número do registro que foi salvo em pdf e uma caixa de seleção para cada registro, chamada "Selecionar".

O objetivo é imprimir um ou vários registros, desde que estejam marcados na caixa de seleção.

Tabela de origem do formulário contínuo: tblDocumentos
Campos da tabela:
NumDoc
Selecionar


Como resolver isso via Vba?

Desde já agradeço.

Bom dia,
Nao testei o codigo, mas talvez algo assim :

Código:

dim strPath  
strPath ="c:\pastaOndeEstaoPDF"

with me.recordsetclose
.movefirst
 do while not .eof
    if !Selecionar=-1 then
        ' aqui voce pode usar a funcao shell para abrir o PDF  , no seguinte path :
        '  strPath & format(NumDoc,"0000") & ".pdf"
           
 
    end if
.moveNext
 loop
end with

Num módulo global, cole:

Código:

Option Compare Database
Option Explicit

#If VBA7 Then
'versões 2010 e 2013
Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Else
'versões 2003 e 2007
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#End If

Public Sub fncImprimir(strArquivo as string)

Dim strCaminhoBase as string

strCaminhoBase = CurrentProject.Path & "\"
Call ShellExecute(0&, "print",strCaminhoBase & strArquivo, "", "", 1)

End Sub

E então monte uma estrutura de loop que percorra os campos com o nome dos pdfs no formulário contínuo, e dentro dela chame pelo procedimento que imprimi o arquivo

Código:

call fncImprimir(NomeDoArquivo)

IvanJr.,

obrigado, a parte da impressão funcionou. Porém o Adobe permanece aberto após a impressão.
Teria algum comando para fechá-lo após a última impressão?

Bom dia Amigos

Tenho este exemplo (Anexo) que lista os PDF que estão numa pasta junto da Base de dados.

Como podem ver no formulário tem um comando para eliminar os que desejar, assim como um comando para abrir o que desejar.

Como por a Imprimir direto sem o abrir bastando o PDF ser selecionado na lista e clicando no respetivo botão de Imprimir.

Obrigado

Boa noite!

Após pesquisas pela net, encontrei um código que fecha o Adobe. Funcionou perfeitamente em conjunto com a função do amigo IvanJr.
Obrigado a todos pelas sugestões.
Abaixo segue a solução:

Código:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
#Else
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End If
Const WM_CLOSE = &H10

Código:

Public Sub fncImprimir(strArquivo as string)

Dim strCaminhoBase as string

strCaminhoBase = CurrentProject.Path & "\"
Call ShellExecute(0&, "print",strCaminhoBase & strArquivo, "", "", 1)

'Aqui fecha o Adobe
Sleep 2000

    Dim strClassName As String
    Dim hwnd
   
    strClassName = "AcrobatSDIWindow"
    hwnd = FindWindow(strClassName, vbNullString)
    If hwnd Then
        SendMessage hwnd, WM_CLOSE, 0, ByVal 0&
    Else
        MsgBox "Adobe não está aberto !"
    End If
End Sub

Obrigado pelo retorno e código disponibilizado. O fórum agradece.

Agradeço ao IvanJr a postagem deste código que usei com sucesso. Muito obrigado