try this:
report = Application.DefaultFilePath & "\Parts in libraries.rep"
Open report For Output As #1
Print #1, "Library locations for PartTypes in " & ActiveDocument.FullName
Print #1
For Each part In ActiveDocument.PartTypes
c=c+1
Set items = GetLibraryItems(0, part.Name)
If Items.Count = 0 Then
Print #1, "NO LIBRARY PART FOR:"; " "; part.Name
ElseIf items.Count > 1 Then
Print #1, "MULTIPLE LOCATIONS:"
For Each item In items
Print #1, " " ;item.Library ; " ";item
Next item
Else
For Each item In items
Print #1, item.Library ; " ";item
Next item
End If
Next part
Close #1
Shell "Notepad " & report, 1