LİSTBOX `a ALINAN VERİLERİ YAZDIRMAK

[Ongun]

LÝSTBOX `a ALINAN VERÝLERÝ YAZDIRMAK

Herkese selamlar, listbox`a aldığım verilerin çıktısını yazıcıdan almak istiyorum. Bana yardımcı olabilirmisiniz. Sitede arama yaptım ama bulamadım. Saygılarımla. :hey:

 

[Ongun]

Arkadaşlar bu konuda bilgisi olan yokmu?. saygılarımla

 

[enderturk]

merhaba

eğer istersen listbox verilerini bir yeni çalışma sayfasına atabilir ve oradan yazdırta bilirsin. yada (bu benim kullandığım bir raporlama yöntemi) verileri word'a atıp word dosyasının açılmasını sağlayabilir ve sana sadece yazdır tuşuna basmak kalır.

hangi çözümü istersen ona göre bir kod örneği göndereyim

 

[aliballi]

sayın endertük,

ben de bu konuyla ilgili bir koda ihtiyacım var..
listboxa aldığım bilgileri, yazıcıdan önizleme yaparak nasıl yazdırabilirim..
farklı bir sayfaya kopyalarak da olabilir veya ikisinide aktarırsanız çok sevinirim..

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kodu deneyebilirsiniz.

sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = ListBox1.List
Sheets("sayfa2").PrintOut

 

[mustim1547]

Aşağıdaki gibi bir kodu deneyebilirsiniz.

sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = ListBox1.List
Sheets("sayfa2").PrintOut

Sayın Menteşoğlu verdiğiniz kod ile sayfa2 komple yazdırılıyor , sadece listbox içerisindeki verileri yazdırabilmem için ne yapmam lazım ?

 

[Orion1]

Sayın Menteşoğlu verdiğiniz kod ile sayfa2 komple yazdırılıyor , sadece listbox içerisindeki verileri yazdırabilmem için ne yapmam lazım ?

Levent beyin kodlarınıa aşğıdaki kırmızı satırrıda ekleyin.

sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = ListBox1.List
[B][COLOR="Red"]sheets("Sayfa2").pagesetup.printarea = "Sayfa2!" & Range("a1:" & Cells(sat, sut).Address).address[/COLOR][/B]
Sheets("sayfa2").PrintOut

 

[mustim1547]

Levent beyin kodlarınıa aşğıdaki kırmızı satırrıda ekleyin.

sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
Sheets("sayfa2").Range("a1:" & Cells(sat, sut).Address) = ListBox1.List
[B][COLOR="Red"]sheets("Sayfa2").pagesetup.printarea = "Sayfa2!" & Range("a1:" & Cells(sat, sut).Address).address[/COLOR][/B]
Sheets("sayfa2").PrintOut

Teşekkür ederim .Şimdi oldu.