Macro Button To open PDF File

[Denzil]

Hi

Im wondering If anyone can help me solve a problem, I have a workbook that has hundreds of part numbers in column A. I want to create code that I can insert into a macro button which I can copy and past into a button on each corresponding row say in column E that will look to the A column see the number given and then search a folder where all the pdf files are kept and search for the number (The pdf's are saved as the numbers) open it then print it

Is that possible??

Many Thanks

Denzil

[Leith Ross]

Hello Denzil,

Here is macro to print all files of the same type in a folder. Now all we need to do is figure out to use it in your workbook. Can you post what you have so I can review it?

Macro to Print All Files in a Directory of the Same Type

Please Login or Register  to view this content.

Calling the Macro

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[Denzil]

Hi Leith

Sorry for the delay! many thanks for the response

Ive attached a sample, if the code could be such that it can be copied identically in each box as it will refer to the row it is in. is that possible?

Many Thanks

Denzil

[Leith Ross]

Hello Denzil,

Here is a macro that can be attached to each button. I have added this to your workbook (attached) in the same module as the first macro I wrote. You will need to edit the macro (code in red) to refer to the directory where the files are stored. After you have made the change then attach the macro to your buttons.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[Denzil]

Hi Leith

Im not sure if Ive done something wrong but ive changed the code to suit
the location of the pdf files but a message comes up that says "There were no pdf files found to print in the following directory \10071" "

Sub PrintButtonMacro() 
 
  Dim BtnName As String 
  Dim FilePath As String 
  Dim MyDir As String 
  Dim R As Long 
   
    BtnName = Application.Caller 
    ChDir "P:\Design\PDF Standard Part Drawings" 
     
      R = ActiveSheet.Buttons(BtnName).TopLeftCell.Row 
      PrintFilesByType MyDir & "\" & Cells(R, "A"), "pdf" 
   
End Sub  

Many Thanks

Denzil

[Leith Ross]

Hello Denzil,

You changed the code, but not correctly. Here is the corrected version with your directory added in.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[Denzil]

Hi Leith

Thanks again for your help

Im not sure whats wrong but i put the corrected code in and the same message comes up, sorry to be a pain but have you any ideas please?

Many Thanks

Denzil

[Denzil]

-----bump-----

[Leith Ross]

Hello Denzil,

I am going out on a job in a few minutes and won't be back until early evening (EDT). If you post your workbook, zip it first before attavhing it, I will review the code for you and make any needed corrections.

Sincerely,
Leith Ross