printing PDF macro

[biglb79]

is there a macro I can write that will print all the tabs in my file to PDF and save each individual tab into the current folder naming them by their tab name?

thanks

 

[ranman256]

Sub ExportAllSheets2Pdf()
Dim sht As Worksheet
Dim vFile, vDir
Dim i As Integer


On Error Resume Next


  'get folder name
vFile = ActiveWorkbook.FullName
i = InStrRev(vFile , "\")
If i > 0 Then
  vDir = Left(vFile , i)
Else
  vDir = Environ("USERPROFILE") & "\My Documents\"
End If


  'cycle thru each sheet
For Each sht In Sheets
   sht.Activate
   Range("A1").Select
   
   vFile = vDir & sht.Name & ".pdf"
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=vFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next


MsgBox "Done"
Set sht = Nothing
End Sub

 

[biglb79]

that's awesome! thanks so much!