userform da ComboBox tan seçilen sayfayı yazdırmak

[inowjoin]

Merhabalar
şirkette sık kullandığımız evrakları tarayıp excele resim nesnesi olarak sayfa sayfa ekledim. Sonra bir userform yaptım fakat userformda seçtiğim belgeye ait olan sayfayı yazdırmayı başaramadım dosya hazır sadece yazdır butonunu tıkayınca seçili olan evrağın olduğu sayfayı yazdıramadım yardımcı olabilirmisiniz Dosya ektedir (evrak sayfaları boş gönderdim)

 

[Skorpiyon]

Sayın inowjoin,

Ek'li dosyayı inceleyin. İstediğiniz böyle bir şey midir ?

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Private Sub CommandButton1_Click()
    If ComboBox1 <> "" Then
    Sheets(CStr(Sheets("DATA").Range("F" & ComboBox1.ListIndex + 3))).PrintOut
    End If
End Sub

 

[inowjoin]

teşekkürler

iki kodda işime yaradı teşekkürler