Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 679
  • Last Modified:

Print PDF file outside of access database

I have a question maybe someone has come across before.  I have a print button on a form in access that I need to print all of the PDF files in a certain folder.  When you click on the button it should automatically print all the PDF's in that folder to the default printer.  Anyone know how to do this?
0
ine2003
Asked:
ine2003
  • 2
1 Solution
 
Usama FoadIT ManagerCommented:
Try this code, but you must have adobe reader.
Private Sub Command1_Click()
On Error GoTo Command1_Click_Error
Dim iNoOfFiles As Integer
Dim iCounter As Integer
Dim sFilePath As String

sFilePath = "C:\temp" ' Replace with your folder

With Application.FileSearch
    .NewSearch
    .LookIn = sFilePath
    .FileName = "*.pdf" 'replace with "*.txt" to find txt files
                        ', "*.doc" for documents .. etc Or with "*.*" for all files type
    .SearchSubFolders = False
    .Execute
    iNoOfFiles = .FoundFiles.Count
    For iCounter = 1 To iNoOfFiles
        Debug.Print .FoundFiles(iCounter)
        ' Print The file with Adobe Reader 9
        ' if you have another version or your adobe reader instaled
        ' in another path change the following path to your "acrord32.exe" file
        ' Replace "vbHide" with vbMinimizedFocus, vbMaximizedFocus OR vbNormalFocus if you
        ' wont Adobe appear during printing
        Shell """C:\Program Files\Adobe\Reader 9.0\Reader\acrord32.exe"" /h /p """ + .FoundFiles(iCounter) + """", vbHide
    Next iCounter

End With
   On Error GoTo 0
   Exit Sub

Command1_Click_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click"
End Sub

Open in new window

0
 
Usama FoadIT ManagerCommented:
Is that work or not?
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now