Solved

Print PDF file outside of access database

Posted on 2010-09-16
2
669 Views
Last Modified: 2012-05-10
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
Comment
Question by:ine2003
  • 2
2 Comments
 
LVL 6

Accepted Solution

by:
UsamaFoad earned 250 total points
ID: 33695357
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
 
LVL 6

Expert Comment

by:UsamaFoad
ID: 33771720
Is that work or not?
0

Featured Post

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Short answer to this question: there is no effective WiFi manager in iOS devices as seen in Windows WiFi or Macbook OSx WiFi management, but this article will try and provide some amicable solutions to better suite your needs.
In this article, I am going to show you how to simulate a multi-site Lab environment on a single Hyper-V host. I use this method successfully in my own lab to simulate three fully routed global AD Sites on a Windows 10 Hyper-V host.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question