How to print out all item inside the drop down box (picture included)

Hello all, I am new here. Last few years I search through online to seek for a solution to auto print out all the option included in a drop down list ( which the content will change based on the drop...

developer

excel

Macros and VBA

JKPieterse

Oct 31, 2019

wcdf00 YOu could use a macro like this to print all items in the list:

Sub PrintAll()
    Dim lCt As Long
    With ActiveSheet.DropDowns("Drop Down 4")
        For lCt = 1 To .ListCount
            .ListIndex = lCt
            If Len(.List(.Value)) > 0 Then
                ActiveSheet.PrintOut
            End If
        Next
    End With
End Sub

JKPieterse

Silver Contributor

Oct 31, 2019

wcdf00 YOu could use a macro like this to print all items in the list:

Sub PrintAll()
    Dim lCt As Long
    With ActiveSheet.DropDowns("Drop Down 4")
        For lCt = 1 To .ListCount
            .ListIndex = lCt
            If Len(.List(.Value)) > 0 Then
                ActiveSheet.PrintOut
            End If
        Next
    End With
End Sub

wcdf00

Copper Contributor

Nov 03, 2019

JKPieterse Thanks, will try to apply it tomorrow. Thank you so much.

Forum Discussion

How to print out all item inside the drop down box (picture included)

Resources