Can't figure out how to print a PDF file using VBA? Can anyone help please????

[BrianG86]

As stated, I cannot figure out how to print off PDF files using VBA.

I have a code that opens a folder and then is supposed to print off all pdf files in that folder.

Can anyone help me out?

 

[BrianG86]

bump

 

[BJungheim]

As stated, I cannot figure out how to print off PDF files using VBA.

I have a code that opens a folder and then is supposed to print off all pdf files in that folder.

Can anyone help me out?

Maybe post the code you have and someone can try to see why it isn't working?

 

[EdNerd]

Sometimes the search function or Google is really nice ....

http://www.mrexcel.com/forum/excel-questions/565764-print-pdf-file-visual-basic-applications.html

 

[BrianG86]

This is my code so far, the next step for me is to print the file name that is in column A

Sub PDFPrint()    
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
Dim wb As Workbook
Dim ws As Worksheet
Dim strF As String, strP As String
Dim strFP As String




Range("A2:A10000").ClearContents
    Set ws = ThisWorkbook.Sheets(1)
    strFP = Cells(1, 4).Value
    strP = "P:\17. PPI Packs\1. RBSO001 - RBS\" & strFP
    strF = Dir(strP & "\*.pdf")
    
    Do While strF <> vbNullString
       
       With ws
                If .Range("A1").End(xlDown).Row = 1048576 Then
                    .Range("A2").Value = strF
                Else
                    .Range("A" & Rows.Count).End(xlUp).Offset(1).Value = strF
                End If
            
        End With
        
    strF = Dir()
    
    Loop
    
End Sub

 

[BrianG86]

Hi EdNerd, the code in the link isn't working for me.

Can anyone even tell me how I would open a pdf file?

 

[RoryA]

In what way doesn't the code in the link work? Do you get an error? (if so, what is it and where?)

 

[starl]

BriangG - please stick to one thread. Duplicates will be deleted. You'll get more help if you respond to the questions the people trying to help you are asking.

 

[BrianG86]

this whole first part

[COLOR=#333333]Option Explicit[/COLOR]
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ByVal hwnd As Long, _ByVal lpOperation As String, _ByVal lpFile As String, _ByVal lpParameters As String, _ByVal lpDirectory As String, _ByVal nShowCmd As Long) As Long </pre>[COLOR=#333333][/COLOR]

the error I am getting is

Compile Error:

The code in this project must be updated for use on 64 bit systems.
Please review and update Declare statements and then mark them with
the PtrSafe attribute.

 

[BrianG86]

BriangG - please stick to one thread. Duplicates will be deleted. You'll get more help if you respond to the questions the people trying to help you are asking.

Starl,

I have replied to the people responding, have a look!

Also, I posted the other one yesterday and no-one responded so I worded it differently today and got responses!