Printing Employees per Manager

Hello,

In the example file I am trying to come up with a way so that a manager can print a report showing which employees fall under which manager and their salaries.

So in the file I have Managers 1,2,3, & 4 and various employees.

I have the basic print VBA set up, I am just not sure how to approach the select statement. Any help is much appreciated.

Sub PrintArea()

Range("A:A").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Employees.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

With ActiveSheet.PageSetup
.Zoom = False
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

End Sub

Wouldn't it be easier (and more stable) to just use a filter? Highlight your data & headers, select "filter", then use the filter to control which entries are visible?

Per the request, though, I modified your procedure to the version below, which should filter the data by manager, then export it to a pdf. It wasn't clear how you wanted the user to select which manager, though, so it goes with whichever manager name is selected when the macro is run. The snippet you posted doesn't actually print, so mine doesn't either, it just opens the preview. Is that (roughly) what you were after?

Sub PrintArea()
Dim Manager As String

Manager = ActiveCell.Value
Worksheets("Data").Range("A:D").AutoFilter _
 field:=1, _
 Criteria1:=Manager, _
 VisibleDropDown:=True

Range("A:D").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Employees.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, OpenAfterPublish:=True

With ActiveSheet.PageSetup
.Zoom = False
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

Originally Posted by AlphaFrog

I think the .PageSetup code block should be before the .ExportAsFixedFormat.

True. If you want the PageSetup bit, it certainly won't do much good after the export. Apologies for the sloppiness.

Thank you, I will give this a try. Yes I would personally use the filters but management needs for it to be as simple as possible (for obvious reasons). So when they open up the sheet, they can click a button - it will print to a pdf so they can hand them out.

They struggle with highlighting certain cells ; )

Thank you so much Jaslake - perfect!