Listboxtaki veriyi önizle ve yazdır

[cem yılmaz]

Merhabalar..

Listboxda aldığım verileri önizlemek ve yazdırmak istiyorum yardım edermisiniz?

 

[cem yılmaz]

Sn Uzmanlarımıza söz veriyorum eğer sorudaki cevabı tam olarak alırsam bu konu altında şöylede olsaydı şunu da ekledim diye soru sormayacağım..

 

[Tarkan VURAL]

Listboxtaki verileri başka sayfaya alarak yapsanıza. Hem o sayfayı ön izlersiniz, hem yazdırırsınız, nasıl olsa Excel'in bu özellikleri var, yararlanmak lazım.

Private Sub UserForm_Click()
On Error Resume Next
Dim say As Integer
Dim i As Integer
say = ListBox1.ListCount
For i = 1 To say
Sheets("sayfa3").Cells(i, 1) = ListBox1.Column(0, i)
Next i
Me.Hide
Sheets("sayfa3").PrintPreview ' baskı önizleme için
'Sheets("sayfa3").PrintOut ' yazdırmak için
Me.Show
End Sub

 

[cem yılmaz]

ama ben sayfayı değil listbox'a aldığım verileri önizleyip yazdırmak istiyorum sorun orda zaten

 

[cem yılmaz]

forumdaki örnekleri inceledim ama hepsi sayfayı önizleme veya yazdır yapıyor