Soru ListBox yazdırma

[massgrave]

Form'da bulunan listbox'ı yatay olarak ve kolon aralıkları ve başlık belirleyerek nasıl yazdırabiliriz?

Private Sub CommandButton8_Click() 'YAZDIRMA BUTONU
On Error Resume Next
soru = MsgBox("Yazdırmak istiyor musunuz?", vbYesNo, "YAZDIR")
If soru = vbYes Then
UserForm1.PrintForm
End If
End Sub

Private Sub UserForm_Initialize()

Dim i As Long
Dim s As String
     s = "this is line "
     For i = 1 To 50
             Me.ListBox1.AddItem s & i
     Next



Call RemoveCaption(Me)
Call CreateCmdBar


ListBox1.ColumnWidths = "35;32;85;159;160;85;120;65"             'COLUMN WITH OF LISTBOX
ListBox1.ColumnCount = 8                                                        'COLUMN NUMBER OF LISTBOX
ListBox1.List = Sheets("Data").Range("a2:l" & [a65536].End(3).Row).Value

'** SEARCH COMBOBOX
ComboBox1.AddItem "ADI"
ComboBox1.AddItem "DOSYA"
ComboBox1.AddItem "AD 1"
ComboBox1.AddItem "AD 2"
ComboBox1.AddItem "SIRA"
ComboBox1.AddItem "İli"
ComboBox1.AddItem "DURUMU"


'**********************************************

Thepsi.Value = ListBox1.ListCount + 1
TextBox15.Value = 0
With lblDone ' set the "progress bar" to it's initial length
        .Top = lblRemain1.Top + 1
        .Left = lblRemain1.Left + 1
        .Height = lblRemain1.Height - 2
        .Width = 0
    End With
lblPct1.Visible = False

TextBox13.SetFocus
End Sub

Private Sub ListBox1_Click()
Dim say, a As Integer

For a = 0 To 11 'If listbox click ,fill the textboxes
Controls("textbox" & a + 1) = ListBox1.column(a)
Next
say = ListBox1.ListIndex + 2
Sheets("Data").Range("A" & say & ":L" & say).Select

TextBox15 = ListBox1.ListIndex + 1
End Sub