Combobox ve yazdırma butonu

[zulfuernek]

combobox1 deki seçili sayfayı yazdırma butonu için gerekli kod hakkında bilgisi olan var mı?

 

[işsiz123]

Deneyiniz.

Private Sub CommandButton1_Click()
Sheets(ComboBox1.Value).PrintOut
End Sub

 

[zulfuernek]

If MsgBox("Yadırmak İstiyormusunuz?", vbYesNo, "YAZDIR") = vbNo Then Exit Sub
Sheets(ComboBox1.Value).PrintOut

2. satırda hata veriyor ama çözemedim. yazdırıyor fakat çıkınca hata veriyor

 

[zulfuernek]

ok. çözdüm hocam.

value yerine text yazınca düzeldi )))