UserForm Üzerinden Yazdırma

[alperalper]

Evet arkadaşlar userform üzerinden veri aratıp listboxt ta sıralanan veriyi seçerek o verinin olduğu sayfayı nasıl yazdırabiliriz... Turkuazla işaretli olan alanı yazdırmak istiyorum... Yardım edebilirmisin??

 

[Orion1]

Merhaba.
İstediğiniz sayfa listbox'tan seçerek yazdırılabiliyor.Yazdır Butonuna basıyorsunuz.
Ekli dosyayı incleyiniz.

Private Sub CommandButton2_Click()
If ListBox1.ListIndex < 0 Then Exit Sub
    Sheets(ListBox1.Column(0)).Select
    [A1].Select
    ActiveSheet.PageSetup.PrintArea = "A1:K62"
    ActiveSheet.PageSetup.Zoom = 85
    ActiveSheet.PrintOut Copies:=1
    Unload Me
End Sub