Re: Problem with Parts List Generation

From my v9.5 install:

'Parts List

'#Uses "RGL.bas"
Sub Main
With ActiveDocument
  outFile = OpenReport (DefaultFilePath & "\Part List.rep")
 
  Print #outFile, "Parts List Report -- ";
  Print #outFile, .Name; " -- ";
  Print #outFile, GetTime
  Print #outFile, "Total components = "; .Components.Count; "  component(s)"
  Print #outFile

  Out "Reference Designation      PartType                     Logic Type"
  Out "------------------------------------------------------------------"

  Columns 10, 27, 60
   For Each nextComp In .Components
    Out nextComp, nextComp.PartType, nextComp.PartTypeLogic
    Print #outFile
   Next nextComp
  End_Columns

  CloseReport
End With
End Sub