Hangi Sayfaları Yazdırmak İstersiniz

[muhasebeciyiz]

Onay Kutusunda Seçili Olan Sayfaları Yazdırmak istiyorum

Merhabalar excel'de 20 sayfadan oluşan belgem olup onay kutusu ile seçtiğim sayfaları yazdır butonuna tıkladığımda yazdırabilmek için yardımınıza ihtiyacım var. desteğiniz için şimdiden teşekkürler.

 

[hamitcan]

Yazdır fonksiyonu içinde sayfa numaraları arasına noktalı virgül( ; ) koyarak da yapabilirsiniz.

 

[muhasebeciyiz]

sayın hocam yazdır butonuna tıkladığımda karşıma tüm sayfaları gösterir kutu gelebilsinki buradan seçim yapıp yazdırmak istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Userform üzerine 1 tane Listbox ve 1 tane CommandButton ekleyerek deneyiniz.

Private Sub CommandButton1_Click()
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Sheets(ListBox1.List(i, 0)).PrintOut
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    ListBox1.MultiSelect = fmMultiSelectMulti
    ListBox1.ListStyle = fmListStyleOption
    For i = 1 To Sheets.Count
        ListBox1.AddItem Sheets(i).Name
    Next i
End Sub

. . .

 

[muhasebeciyiz]

teşekkürler emir hüseyin çoban bey