Created a report via VBA looking at the active drawings LayerOn property. If its true it should populate the Columns and rows created via vba with only the data of the layer where their LayerOn = True. Its working fine, but its putting all the data into the report hiding the layers thats off. So instead of giving for example two pages of data, it gives me 4 pages with 2 pages of printable data.

 

The code is as follows;

 

Dim objLayer As AcadLayer
'only put unknown layer data in table
  For Each objLayer In Application.Documents cboDrawingName.Text).Layers
   If objLayer.LayerOn = True Then
      With mobjTable
        .Cell(lngRow, lngColumn).Range.Text = objLayer.Name
          lngColumn = lngColumn + 1
        .Cell(lngRow, lngColumn).Range.Text = ConvertToWord(objLayer.LayerOn)
          lngColumn = lngColumn + 1
        .Cell(lngRow, lngColumn).Range.Text = ConvertToWord(objLayer.Freeze)
          lngColumn = lngColumn + 1
        .Cell(lngRow, lngColumn).Range.Text = ConvertToWord(objLayer.Lock)
          lngColumn = lngColumn + 1
'increment the row counter
          lngRow = lngRow + 1
'column counter must begin at 1
          lngColumn = 1
      End With
    End If
  Next objLayer

 

Is there a way i can only populate the table with layer data i need?