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.
|