does anyone know how to print an adobe file using an excel macro?
--
Helping Is always a good thing

Here is one approach:

Sub Tester2a()
Shell "C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe" & _
" c:\toc1\amcr37-4.pdf", 1
' the following prints the document
Application.SendKeys "^p~", False
End Sub


or if you have .pdf associated with acrobat reader:


Private Sub CommandButton1_Click()
Shell "Start.exe ""D:\My Documents\sm569_Jan2001\tute6.pdf"""
Application.SendKeys "^p~", False
End Sub




--

Regards,

Tom Ogilvy



"QuietMan" wrote in message
...
does anyone know how to print an adobe file using an excel macro?
--
Helping Is always a good thing

Thanks Tom
--
Helping Is always a good thing


"Tom Ogilvy" wrote:

Here is one approach:

Sub Tester2a()
Shell "C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe" & _
" c:\toc1\amcr37-4.pdf", 1
' the following prints the document
Application.SendKeys "^p~", False
End Sub


or if you have .pdf associated with acrobat reader:


Private Sub CommandButton1_Click()
Shell "Start.exe ""D:\My Documents\sm569_Jan2001\tute6.pdf"""
Application.SendKeys "^p~", False
End Sub




--

Regards,

Tom Ogilvy



"QuietMan" wrote in message
...
does anyone know how to print an adobe file using an excel macro?
--
Helping Is always a good thing

Tom,

I'm receiving a file not found error, even though I know the pathe is correct
is it because the file is located on a share network drive?

here is the code i have

Sub Tester2a()
Path_PDF = Range("Access_Path")
Prn_File = Range("Access_File")
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" & Path_PDF &
"\" & Prn_File & ", 1"
' the following prints the document
Application.SendKeys "^p~", False
End Sub
--
Helping Is always a good thing


"Tom Ogilvy" wrote:

Here is one approach:

Sub Tester2a()
Shell "C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe" & _
" c:\toc1\amcr37-4.pdf", 1
' the following prints the document
Application.SendKeys "^p~", False
End Sub


or if you have .pdf associated with acrobat reader:


Private Sub CommandButton1_Click()
Shell "Start.exe ""D:\My Documents\sm569_Jan2001\tute6.pdf"""
Application.SendKeys "^p~", False
End Sub




--

Regards,

Tom Ogilvy



"QuietMan" wrote in message
...
does anyone know how to print an adobe file using an excel macro?
--
Helping Is always a good thing

Tom had a space between acrord32.exe and the file name. You'll want one, too.

Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " & _
Path_PDF & "\" & Prn_File & ", 1"



QuietMan wrote:

Tom,

I'm receiving a file not found error, even though I know the pathe is correct
is it because the file is located on a share network drive?

here is the code i have

Sub Tester2a()
Path_PDF = Range("Access_Path")
Prn_File = Range("Access_File")
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" & Path_PDF &
"\" & Prn_File & ", 1"
' the following prints the document
Application.SendKeys "^p~", False
End Sub
--
Helping Is always a good thing

"Tom Ogilvy" wrote:

Here is one approach:

Sub Tester2a()
Shell "C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe" & _
" c:\toc1\amcr37-4.pdf", 1
' the following prints the document
Application.SendKeys "^p~", False
End Sub


or if you have .pdf associated with acrobat reader:


Private Sub CommandButton1_Click()
Shell "Start.exe ""D:\My Documents\sm569_Jan2001\tute6.pdf"""
Application.SendKeys "^p~", False
End Sub




--

Regards,

Tom Ogilvy



"QuietMan" wrote in message
...
does anyone know how to print an adobe file using an excel macro?
--
Helping Is always a good thing




--

Dave Peterson

Dave,
Thanks that was driving me crazy

Now how can I get it to print multiple pdf's, tried looping it but only one
prints
--
Helping Is always a good thing


"Dave Peterson" wrote:

Tom had a space between acrord32.exe and the file name. You'll want one, too.

Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " & _
Path_PDF & "\" & Prn_File & ", 1"



QuietMan wrote:

Tom,

I'm receiving a file not found error, even though I know the pathe is correct
is it because the file is located on a share network drive?

here is the code i have

Sub Tester2a()
Path_PDF = Range("Access_Path")
Prn_File = Range("Access_File")
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" & Path_PDF &
"\" & Prn_File & ", 1"
' the following prints the document
Application.SendKeys "^p~", False
End Sub
--
Helping Is always a good thing

"Tom Ogilvy" wrote:

Here is one approach:

Sub Tester2a()
Shell "C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe" & _
" c:\toc1\amcr37-4.pdf", 1
' the following prints the document
Application.SendKeys "^p~", False
End Sub


or if you have .pdf associated with acrobat reader:


Private Sub CommandButton1_Click()
Shell "Start.exe ""D:\My Documents\sm569_Jan2001\tute6.pdf"""
Application.SendKeys "^p~", False
End Sub




--

Regards,

Tom Ogilvy



"QuietMan" wrote in message
...
does anyone know how to print an adobe file using an excel macro?
--
Helping Is always a good thing




--

Dave Peterson

Maybe...

Sub Tester2a()
dim myCell as range
dim Path_PDF as string
dim Prn_File_Rng as range

Path_PDF = Range("Access_Path")
set Prn_File_Rng = Range("Access_File_Rng")

for each mycell in prn_file_rng.cells
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " _
& Path_PDF & "\" & mycell.value & ", 1"
Application.SendKeys "^p~", False
next mycell
End Sub

Maybe you can send ctrl-Q to exit the Reader after it prints, too???

(Untested, uncompiled)

QuietMan wrote:

Dave,
Thanks that was driving me crazy

Now how can I get it to print multiple pdf's, tried looping it but only one
prints
--
Helping Is always a good thing

"Dave Peterson" wrote:

Tom had a space between acrord32.exe and the file name. You'll want one, too.

Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " & _
Path_PDF & "\" & Prn_File & ", 1"



QuietMan wrote:

Tom,

I'm receiving a file not found error, even though I know the pathe is correct
is it because the file is located on a share network drive?

here is the code i have

Sub Tester2a()
Path_PDF = Range("Access_Path")
Prn_File = Range("Access_File")
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" & Path_PDF &
"\" & Prn_File & ", 1"
' the following prints the document
Application.SendKeys "^p~", False
End Sub
--
Helping Is always a good thing

"Tom Ogilvy" wrote:

Here is one approach:

Sub Tester2a()
Shell "C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe" & _
" c:\toc1\amcr37-4.pdf", 1
' the following prints the document
Application.SendKeys "^p~", False
End Sub


or if you have .pdf associated with acrobat reader:


Private Sub CommandButton1_Click()
Shell "Start.exe ""D:\My Documents\sm569_Jan2001\tute6.pdf"""
Application.SendKeys "^p~", False
End Sub




--

Regards,

Tom Ogilvy



"QuietMan" wrote in message
...
does anyone know how to print an adobe file using an excel macro?
--
Helping Is always a good thing




--

Dave Peterson


--

Dave Peterson