hücredeki yazılı sayfayı yazdırma

[bamteli_27]

merhaba

a2 hücresindeki değerde belirtilen sayfayı yazdırmak istiyorum ve birkaç deneme yaptım ancak hep hata verdi

bul_sayfa = Worksheets("yazdır").Range("A2").Value

Worksheets("bul_sayfa").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("yazdır").Select

kodunu kullandım nerde yanlış yapmış olabilirim

şimdiden teşekkürler

Ayrıca; yöneticilerden özür diliyorum, az önce aynı mesajı ekledim ancak yanlışlığı nerde yaptıysam mesaj eklenmedi...
eğer aynı başlıkla iki mesaj çıkarsa size zahmet birini silebilirmisiniz....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Worksheets(Worksheets("yazdır").Range("A2").Text).PrintOut Copies:=1, Collate:=True

 

[bamteli_27]

hocam teşekkürler

denedim ve istediğim gibi oldu ve kod çalıştı