Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).

New Forum | Previous | Next | (P-PDF) Developers

Topic: Print PDF's using VBA or Shell command
Conf: (P-PDF) Developers, Msg: 55862
From: jbmeek
Date: 5/29/2002 05:15 PM

I am having trouble printing PDF docs using VBA code.  Printing to the default windows printer would be fine, or I could specify one on the Access Form.  I am using the PrintAll method - it acts like it is working, shows the "Printing..." dialog, but nothing prints.

Here is the code:

Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim PDDoc As CAcroPDDoc
Dim IsSuccess As Boolean

    Set AcroApp = CreateObject("AcroExch.App")
    Set AVDoc = CreateObject("AcroExch.AVDoc")
    AVDoc.Open "c:\windows\desktop\back_cover.pdf", ""
    Set PDDoc = AVDoc.GetPDDoc
    AVDoc.PrintPages 1, 1, 2, True, True
    'Close the PDF
    AVDoc.Close True
    Set PDDoc = Nothing
    Set AVDoc = Nothing
    Set AcroApp = Nothing

    Exit Sub

I have also tried using a shell command based upon a message I found in this forum.  Trouble is, that posting was for Acrobat Reader 4.0 and I am using the full Acrobat 5.0.

Here is the code I have tried:

Const AdobePath = "C:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe"

Dim AVDoc As CAcroAVDoc
Dim strPrinterFriendlyName As String
Dim strLineToExecute As String
Dim strFileName As String

strFileName = "c:\windows\desktop\back_cover.pdf"

Set AVDoc = CreateObject("AcroExch.AVDoc")
strPrinterFriendlyName = "HP Laserjet 5si #1"
AVDoc.Open strFileName, ""

strLineToExecute = AdobePath & " /t " & strFileName & " " & strPrinterFriendlyName
Shell strLineToExecute, vbNormalFocus

Any help will be greatly appreciated.
Johnny Meek

PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Five visions of a PDF Day

In the world of PDFs or as we like to say Planet (of) PDF, a year isn't a real PDF year without an intense few days of industry knowledge sharing.

May 15, 2018
Platinum Sponsor

Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.


Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.