Listbox daki veriler yazıcıdan yazdırma

[krokix]

arkadaşlar merhabalar, aşağıdaik kodlar ile userform üzerindeki listboxa verileri aldırıyorum, fakat bu verileri yazdır düğmesine bastığımda yazıcıdan çıktısını almak istiyorum. kullandığım kodlar
Private Sub UserForm_Initialize()
Dim STR As Long, STR1 As Long
STR1 = 0
ListBox1.ColumnWidths = "25;80;100;80;50;80;50"
ListBox1.ColumnHeads = False
ListBox1.BackColor = vbBlue
ListBox1.ForeColor = vbWhite



ListBox1.ColumnCount = 7
For STR = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If CDate(Cells(STR, "F")) <= CDate(Date) Then
ListBox1.AddItem
ListBox1.List(STR1, 0) = Cells(STR, "A")
ListBox1.List(STR1, 1) = Cells(STR, "B")
ListBox1.List(STR1, 2) = Cells(STR, "C")
ListBox1.List(STR1, 3) = Format(Cells(STR, "D"), "dd.mm.yyyy")
ListBox1.List(STR1, 4) = Cells(STR, "E")
ListBox1.List(STR1, 5) = Format(Cells(STR, "F"), "dd.mm.yyyy")
ListBox1.List(STR1, 6) = CDate(Cells(STR, "F")) - CDate(Date)
STR1 = STR1 + 1
End If
Next
End Sub

userform üzerinde bir de YAZDIR diye düğme var, ona basınca bu listboxdaki verlieri yazıcıdan yazdırmak istiyorum. acaba mümkün mü?

 

[Seyit Tiken]

UserForm1.PrintForm

Bu şekilde deneyiniz.

 

[krokix]

ilginize teşekkür ederim. bu şekilde yazdırıyor, ancak userform üzerinde ne var ne yok yazdırıyor. ben sadece listbox1 deki verilerin yazdırılmasını istiyorum. acaba yapılabilir mi.

 

[krokix]

yok mu arkadaşlar bunun bir çaresi acaba.

 

[Korhan Ayhan]

Merhaba,

ListBox nesnesindeki verileri bir sayfaya aktarıp ilgili sayfayı yazdırmayı deneyin.

 

[krokix]

Sayın Korhan Ayhan, söylediğin gibi yapmaya çalıştım. forumu arattım şöyle bir kod buldum
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
Sheets("rapor").Range("a6:" & Cells(sat, sut).Address) = ListBox1.List

fakat olmadı. acaba nasıl yapabilirim, yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

Basitçe ekteki örnek dosyadaki yapıyı kullanabilirsiniz. İnceleyin.

 

[krokix]

Korhan Bey, verdiğiniz örnek çok işime yaradı. çok teşekkürler. iyi çalışmalar dilerim..