Simple if statement for listbox printing

[erutherford]

I borrowed this code and it works, except for the If statement. I have seen this example numerous times and no ones had an issue. When I run it (with an empty LBIssues) it will print preview a blank page. Shouldn't it say "there is nothing to print" and not display a blank page?

Private Sub PrintBtn_Click()
    Dim rng As range
    Dim wks As Worksheet, ListData()
    'Creates a new ws.sheet for the printout
    Set wks = ThisWorkbook.Worksheets("Printout")
    'Define range start for the list output
    Set rng = wks.range("B2")

    If LBIssues.ListCount = 0 Then
        MsgBox "There is nothing in the list to print!"
        Exit Sub
    End If

    ReDim ListData(LBIssues.ListCount - 1, LBIssues.ColumnCount - 1)
    ListData() = LBIssues.List()
    wks.Cells.Clear
    wks.range(rng, rng.Offset(UBound(ListData), 6)).Value = ListData()
    Application.ScreenUpdating = False

    'Keeps ws.Printout visible
    wks.Visible = xlSheetVisible
    Unload ufEditIssues
    wks.PrintPreview
    'wks.Visible = xlSheetHidden
    Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

How are you loading the LBIssues list, maybe there are cells with blank spaces and you are loading one or more blank records in the LBIssues and therefore the counter is greater than 0.

 

[erutherford]

It does load headers when I look at the ws.sheet it creates, but I don't see where the code loads them. Properties, Column heads =False Everything else is blank.

 

[erutherford]

Solved - Form initialization sub added headers!

 

[DanteAmor]

I am glad to know that already works for you. Thanks for the feedback.