Sub PrintResourceCharts()
'This macro will pring a gantt chart for every resource in the project
'It will automatically adjust the timescale to show all of the resource's activities
'Copyright Jack Dahlgren, Feb. 2002

Dim r As Resource
Dim mystring As String
ViewApply Name:="&Gantt Chart"
For Each r In ActiveProject.Resources
If r.Assignments.Count > 0 Then
mystring = r.Name
    FilterEdit Name:="Filter 1", TaskFilter:=True, Create:=True, _
    OverwriteExisting:=True, FieldName:="Resource Names", test:="Contains exactly", _
    Value:=mystring, ShowInMenu:=False, ShowSummaryTasks:=False
    FilterApply "Filter 1"
    SelectAll
    ZoomTimescale Selection:=True
    SendKeys "{ENTER}"
    FilePrint
    MsgBox (r.Name)
End If
Next r
End Sub