yazdır makrosu lazım

[tokerx22]

yazdır markosu lazım ama yalınız benım ıstedıgım normal yzdır markosu degıl
ben yazdır butonuna bastıgım zaman sayfa 1 sayfa 2 sayfa 3 ...sayfa 100..
icerısındeki beli bir alanı yazdırmak istiyorum mesla a1 f9 arasısını yazırmak istıyorum bu mumkunmu?

2 eger bole bır yazdırma seklı yoksa bu sayfalardaki veriyı bir sayfya nasıl aktarırım aktara bılırsem bir tusla buda benım işimi görür

şimdiden teşekurler ..

 

[Ayhan Ercan]

Merhaba

Sheets("Sayfa1").[A1:F9].PrintOut

 

[tokerx22]

teşekurler

Merhaba

Sheets("Sayfa1").[A1:F9].PrintOut

yalınız sayfa1 için ıstemıyorum tek tıklama ile sayfa 1 sayfa 2 sayfa 3 4 5 100 1000 hepsını kapsamsını ıstıyorumm

 

[Ayhan Ercan]

Döngüdeki 100 sayısını istediğiniz kadar yükseltebilir veya alçaltabilirsiniz..

For i = 1 To [COLOR=blue]100
[/COLOR]Sheets("Sayfa" & i).[A1:F9].PrintOut
Next i

 

[tokerx22]

compile error
ınvalid outside procedure
hatası veriyo

dosya ekte

 

[tokerx22]

teşekurler bu benım işimi gordı 2 aydır bunla ugrasıyordum bir turlu yapamıyodumm allah işnizi gucunuzu rast getirsin