Thread: Save as PDF
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim May Jim May is offline
external usenet poster
 
Posts: 477
Default Save as PDF

I use this -- maybe you can adapt it to your needs:

Private Sub CommandButton1_Click()
Dim Progname As String
Dim MyFile As String
Progname = "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
MyFile = "C:\Documents and Settings\Jim May\My Documents\test.pdf"
Shell Progname & " " & MyFile, vbNormalFocus
End Sub

"richzip" wrote:

I have macro code set up to take data from a large workbook, and generate
separate xls files for each employee's data. It currently saves it as an xls
file. However, is there a code I can add that will also save it as a pdf
file in the same folder? I would like to give the employees the choice to
view either .xls or .pdf.