Print data from listbox in userform vba

[inactiveUser214710]

I am unable to solve this.
I have a Userform (usrf1), that has a combobox (cbo1), a listbox (lstPed) and commadButton (cmdPrint).
The Listbox have three columns, which are fills up in by order of (cbo1).
And my goal is print it to an other sheet (Sheet6) with head colums (A1 to C3).
So the information must go to (A3 to C30) and after that I can printout.
I used :

''''Dim arr As Variant
''''
''''With usrf1.lstPed
''''arr = Application.Transpose(usrf1.lstPed.List)
'''''    Sheets("Sheet6").Range("a3").Resize(.ListCount).Value = .List
''''End With
'''''Sheets("sheet6").Range("a3").CurrentRegion.PrintOut
'''''End Sub

But I don´t know how to change for acept the three columns
Could anyone help me, I will be grateful. thank you
Jdcar

 

[inactiveUser214710]

Private sub PrinterList ()
Dim arr As Variant

With UserForm9.lstPed
arr = Application.Transpose(UserForm9.lstPed.List)
    Sheets("Sheet1").Range("a1").Resize(.ListCount).Value = .List
End With
Sheets("sheet1").Range("a1").CurrentRegion.PrintOut
End Sub