Solved

Print PDF file outside of access database

Posted on 2010-09-16
2
672 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

When it comes to protecting Oracle Database servers and systems, there are a ton of myths out there. Here are the most common.
This post contains step-by-step instructions for setting up alerting in Percona Monitoring and Management (PMM) using Grafana.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

739 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