Yazdır makrosunda sorun...

[AS3434]

Selamlar
Tam iş bitti derken yeni bir sorun çıkıyor.
Aşağıda kullanmış olduğum yazdır makrosu "O1" hücresindeki değer kadar sayfa yazdırıyor. Yani O1, 2 ise 2 sayfa, 3 se 3 sayfa gibi. Yalnız sorun şurda , Eğer sayfaya özel altbilgi yerleştirirsem yazıcı alıyor başını gidiyor. 1111 sayfa basmaya başlıyor. Özel alt bilgiyi kaldırınca sorun yok.
Bu sorunu çözmenin bir çaresi varmı?

Sub YazHakediş()
ActiveSheet.PageSetup.PrintTitleRows = "$1:$5"
ActiveSheet.PageSetup.PrintArea = "$p$6:$v$65500"
ActiveSheet.PrintOut From:=1, To:=[O1].Value, Copies:=1, preview:=False, Collate:=True
End Sub


Edit . Arkadaşlar Bu aralar çok dalgınım. Sorunu çözdüm. Vaktinizi aldığım için özür dilerim.

Sevgilerle

 

[gecemavisi]

Hocam çözdüğünüz sorunun kodlarını bize de verebilirseniz eğer çok memnun olacağız.
saygılarımla...

 

[AS3434]

sn. gecemavisi
Kodlarda sorun yok. Sayfada koruma olduğu için, O1 hücresindeki formülümü görmüyordu. kodların başına ve ve sonuna şifre çözücü satırları yerleştirince sorun kalktı.
Sub YAZ()
activesheet.unprotect "şifreniz"
Yukardaki kodlar

activesheet.protect "şifreniz"
End Sub