Print off query results?

[Ajz1971]

Hi There,
I’m not sure if I’m in the right section here? But what I’m looking for is a way to do the following…


I have a query that gives me a list of Linked PDF Files (C:/Policies/Policy1.PDF…. C:/Policies/Policy2.PDF etc…) what I would like to do is be able to print off all documents automatically using VBA code that I can attach to the on click of a button…Is this possible?

The query is named 'Staff Query'... The column of linked files is 'Feild2' ....I do not need to view the PDF's, and Adobe PDF reader path is "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"





Thanks in advance for any feedback

[ranman256]

Cycle thru the recordset,sending each to the printer....

Public 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


sub btnPrintFiles_click()
Set rst=currentDb.openrecordset("qsMyQuery")
with rst
   While not .eof
       call Print1File( .fields("FilePath") )         'Send the field to the printer
       .moveNext
   Wend 
end with
set rst = nothing
end sub

Public Function Print1File( FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(0, "Print", FileName, 0&, 0&, 3)
End Function

[Ajz1971]

Hi ranman256, thanks for the reply

I have put your code in and changed parts of the codes to suit...not sure if i've done this right tho? I get a compile error on shellexecute?

Public 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


Sub Image5_Click() 'form image which user will click to print pdf's
Set rst = CurrentDb.OpenRecordset("Staff Query") 'put my query here?
With rst
While Not .EOF
PrintFile Me.Hwnd, .Fields("Field2") 'put the field which holds the list of paths here?
.MoveNext
Wend
End With
Set rst = Nothing
End Sub

Public Function PrintFile(formname As Long, FileName As String)
On Error Resume Next
Dim X As Long
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function

Not sure where I'm gong wrong here, any feedback will be great help