Print to PDF Excel Tabs

[willbost]

I have a workbook that has the following tabs:

Cover
DJones
ASmith
KAdams
etc....

There are actually 27 tabs with individual names of managers. I want to be able to save out 2 tabs together as a PDF for each name. Thus Cover & DJones, then Cover & ASmith, then Cover & KAdams, etc...

I am currently printing as PDF manually, but am looking for a more automated way. Thanks!

 

[Domenic]

Try...

[FONT=Verdana][COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR][/FONT]
[COLOR=#00008b][/COLOR] 
[FONT=Verdana][COLOR=darkblue]Sub[/COLOR] CreatePDF()[/FONT]
 
[FONT=Verdana]   [COLOR=darkblue]Dim[/COLOR] strDestPath [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR][/FONT]
[FONT=Verdana]   [COLOR=darkblue]Dim[/COLOR] wkbSource [COLOR=darkblue]As[/COLOR] Workbook[/FONT]
[FONT=Verdana]   [COLOR=darkblue]Dim[/COLOR] wkbDest [COLOR=darkblue]As[/COLOR] Workbook[/FONT]
[FONT=Verdana]   [COLOR=darkblue]Dim[/COLOR] wks [COLOR=darkblue]As[/COLOR] Worksheet[/FONT]
 
[FONT=Verdana]   Application.ScreenUpdating = [COLOR=darkblue]False[/COLOR][/FONT]
[FONT=Verdana]   Application.DisplayAlerts = [COLOR=darkblue]False[/COLOR][/FONT]
 
[FONT=Verdana]   strDestPath = "C:\Users\Domenic\Desktop\"   [COLOR=green]'change the destination path accordingly[/COLOR][/FONT]
 
[FONT=Verdana]   [COLOR=darkblue]If[/COLOR] Right(strDestPath, 1) <> "\" [COLOR=darkblue]Then[/COLOR] strDestPath = strDestPath & "\"[/FONT]
 
[FONT=Verdana]   [COLOR=darkblue]Set[/COLOR] wkbSource = ActiveWorkbook[/FONT]
[FONT=Verdana]   wkbSource.Worksheets("Cover").Copy[/FONT]
 
[FONT=Verdana]   [COLOR=darkblue]Set[/COLOR] wkbDest = ActiveWorkbook[/FONT]
 
[FONT=Verdana]   [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] wks [COLOR=darkblue]In[/COLOR] wkbSource.Worksheets[/FONT]
[FONT=Verdana]       [COLOR=darkblue]If[/COLOR] wks.Name <> "Cover" [COLOR=darkblue]Then[/COLOR][/FONT]
[FONT=Verdana]           wks.Copy after:=wkbDest.Worksheets(1)[/FONT]
[FONT=Verdana]           wkbDest.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDestPath & wks.Name & ".pdf"[/FONT]
[FONT=Verdana]           wkbDest.Worksheets(2).Delete[/FONT]
[FONT=Verdana]       [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR][/FONT]
[FONT=Verdana]   [COLOR=darkblue]Next[/COLOR] wks[/FONT]
 
[FONT=Verdana]   wkbDest.Close savechanges:=[COLOR=darkblue]False[/COLOR][/FONT]
 
[FONT=Verdana]   Application.ScreenUpdating = [COLOR=darkblue]True[/COLOR][/FONT]
[FONT=Verdana]   Application.DisplayAlerts = [COLOR=darkblue]True[/COLOR][/FONT]
 
[FONT=Verdana]   MsgBox "Completed...", vbInformation[/FONT]
 
[FONT=Verdana][COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]

 

[willbost]

Thanks!!!! It worked like a charm. May be too good since it also printed hidden tabs with the cover tab.