Hücredeki değere göre Sayfaları Yazdırma

[ptcsite]

Arkadaşlar örneğin A1 hücresinde 20 rakamı var... Bu rakama göre 1'den 20'ye kadar olan sayfaların yazdırılmasını istiyorum... Rakam 5 ise 1'den 5'e kadar sayfanın yazdırılmasını istiyorum... Bu basit makroyu internette aradım ama kimse böyle birşey istememiş

 

[ptcsite]

Private Sub CommandButton1_Click()
Sayfa1.Range("AN4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
End Sub

Yabancı bir forumdan aldım... istediğim bu makroydu... AN4 hücresinde yazan rakama göre sayfa çıktısı alıyorum...

 

[tamer42]

a göre 1'den 20'ye kadar olan sayfaların yazdırılmasını istiyorum... Rakam 5 ise 1'den 5'e kadar sayfanın yazdırılmasını istiyorum... Bu basit makroyu internette aradım ama kimse

Arkadaşlar örneğin A1 hücresinde 20 rakamı var... Bu rakama göre 1'den 20'ye kadar olan sayfaların yazdırılmasını istiyorum... Rakam 5 ise 1'den 5'e kadar sayfanın yazdırılmasını istiyorum... Bu basit makroyu internette aradım ama kimse böyle birşey istememiş

Ekli dosyaı inceler misiniz,

 

[ptcsite]

teşekkürler altın üyelik istiyormuş Ama sorunumu çözdüm