Listbox da görünenleri yazdirmak

[enboy81]

Anaformda sorgu yaptığımda sorgu sayfasına tüm datadaki kayıtlı bilgiler geliyor. Bende listbox da sadece d-e-f-g sütunlarıni göstererek bakiyorum. Daha sonra yazdırmak istediğimde sadece listbox da görününenleri yani Sorgu ya gelen sayfadaki d-e-f-g sütunlarıni yatay yazdirabilecek şekilde makro kodlar yazmak mümkün mü?

 

[enboy81]

.

 

[enboy81]

https://www.dosyaupload.com/# dosya ekte

Hata indir

Hata

www.dosyaupload.com

 

[Korhan Ayhan]

"Önizle" butonu için deneyiniz.

Private Sub btnonizle_Click()
    With Sheets("Onizle")
        .Range("A4:D" & Rows.Count).ClearContents
        Satir = lstDetay.ListCount
        .Range("A4:D4").Resize(Satir) = lstDetay.List
    End With
End Sub

 

[enboy81]

Teşekkürler ellerinize sağlık.

 

[dragman]

Selamlar hocam bu listbox banada lazım Korhan hocamın verdiği önizleme kodlarını yapıştıramıyorum belge koruması var ,bu korumayı nasıl kaldıracağım..

 

[dragman]

Yazdır dediğimizde yazdır butonu yazdırmıyor.

 

[Korhan Ayhan]

VBA editörüne geçip yazdır butonunda ki kodun başındaki tek tırnağı kaldırmalısınız.

Yine aynı ekranda benim verdiğim kodu ilgili butona uygulamalısınız.

O zaman çalışacaktır.

 

[dragman]

Korhan Hocam dediğinizi uyguladığımda böyle bir hata alıyorum.

 

[byfika]

Merhabalar,
Eğer Enboy81 in 3 nolu mesajındaki dosyada işlem yapıyorsanız, Onizle sayfası B1 ve B2 deki formülü silerek, sorgu ve Yazdır sayfasına gerek kalmadan alttaki kodlar ile hem ön izleme yapar hem yazdıra bilirsiniz. (btnonizle_Click veya btnYazdır_Click butonlarından birine yazarsanız)

Private Sub btnonizle_Click() veya Private Sub btnYazdır_Click()
On Error Resume Next
With Sheets("Onizle")
.Range("A4:d" & Rows.Count).ClearContents
.Range("b1:b2").ClearContents
Satir = lstDetay.ListCount
.Range("A4:d4").Resize(Satir) = lstDetay.List
End With
Sheets("Onizle").Range("B1").Value = txtad.Text
Sheets("Onizle").Range("B2").Value = txtsoyad.Text


soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
Me.Hide
Sheets("Onizle").PrintPreview
Me.Show
Range("A1").Select
Else
Sheets("Onizle").PrintOut
End If
End Sub

 

[dragman]

Merhabalar,
Eğer Enboy81 in 3 nolu mesajındaki dosyada işlem yapıyorsanız, Onizle sayfası B1 ve B2 deki formülü silerek, sorgu ve Yazdır sayfasına gerek kalmadan alttaki kodlar ile hem ön izleme yapar hem yazdıra bilirsiniz. (btnonizle_Click veya btnYazdır_Click butonlarından birine yazarsanız)

Private Sub btnonizle_Click() veya Private Sub btnYazdır_Click()
On Error Resume Next
With Sheets("Onizle")
.Range("A4:d" & Rows.Count).ClearContents
.Range("b1:b2").ClearContents
Satir = lstDetay.ListCount
.Range("A4:d4").Resize(Satir) = lstDetay.List
End With
Sheets("Onizle").Range("B1").Value = txtad.Text
Sheets("Onizle").Range("B2").Value = txtsoyad.Text


soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
Me.Hide
Sheets("Onizle").PrintPreview
Me.Show
Range("A1").Select
Else
Sheets("Onizle").PrintOut
End If
End Sub

Evet onun üzerinde çalışıyorum.Çok teşekkür ederim çalıştı,ellerinize sağlık...

 

[enboy81]

Ben çalıştıramadim kodu

 

[dragman]

Tekrardan kontrol ederseniz iyi olur çünkü bende çalıştı...

 

[enboy81]

Tekrardan kontrol ederseniz iyi olur çünkü bende çalıştı...

Calıştırabildim. Tesekkurler.

 

[dragman]

Selam arkadaşlar herkesin yeni yılı kutlu olsun.Bu dosayayı biraz daha geliştirmek istiyorum yazdırdığım sonradan kendim ileve ettim sarı yerleride nasıl formüle edip yazdıracağım.yani önceki bakiye günlük tutar ödeme yaparsa ve ya yapmasa kalan bakiyede yazdırsın.Şimdiden teşekkürler...