listbox a eklenmiş bilgi listesinin yazıcı dökümü nasıl alınır?

[olymposss]

hayırlı günler kolay gelsin

bir listbox a ürünlerimin listesini ekliyorum. bu listeyi direkt olarak listbox taki şekli ile yazıcıdan almak mümkün mü?

çok teşekkürler saygılar.:yardim:

 

[Levent Menteşoğlu]

Listboxtaki bilgiler aynı şekilde sayfaya aktarılıp yazdırılabilir. Aşağıdaki kodu bir butona yazın. Veriler sayfa2 ye kopyalanıp yazdırılmaktadır.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa2")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range("a1", s1.Cells(sat, sut)) = ListBox1.List
s1.PrintOut
End Sub