bazı sayfaların yazdırmasını nasıl engellerim???

[tahiroglu]

kullanmış olduğum yaklaşık 80-85 sayfalık bir çalışma kitabımda bazı bilgilerin yer aldığı 4 sayfayı yazdırmak istemiyorum.diğeri sayfaların isimlerinin altalta yazılı olduğu veri sayfası var.bu sayfaların yazıcıdan yazdırılmasını diğeri dört sayfanın yazdırılmamasını nasıl yapabilirim.?bana bu konuda yardımcı olabilirmisiniz?hepinize teşekkürler.iyi çalışmalar.....

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook sayfasına kopyalayın. Kod içindeki sayfa1, sayfa2,..... yazan yerlere de yazdırılmasını istemediğiniz sayfa isimlerini yazın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
deg = Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")
For a = 0 To 3
If ActiveSheet.Name = deg(a) Then Cancel = True
Next
End Sub

 

[tahiroglu]

teşekkürler

sayın leventm hocam ellerinize,yüreğinize aklınıza sağlık.çok yardımcı oldunuz...ama kodu uyguladım yazdırma yapamıyor.userform üzerindeki butona yazdım bu kodu yazdırma yapmadı...hiç bir sayfayı...
ben mi bir hata yaptım anlayamadım hocammm...

 

[ocamsul]

SN: tahiroğlu kodu, kod sayfasındaki thisworkbook sayfasına kopyalayın. Butona olmaz.

 

[tahiroglu]

sayın ocamsul

dediğiniz gibide yaptım ama userformdaki yazdır tuşuna bastığımda yine tüm kitabı yazdırıyor.
acaba yazdır butonundaki kodumdamı hata var?
activeworkbook.printout copies:=1
yardımcı olursanız sevinirim...saygılar

 

[Levent Menteşoğlu]

Kod içindeki sayfa adlarını kendi sayfa adlarınızla değiştirdinizmi?

 

[tahiroglu]

ewet

sayın leventm hocam inanın kaç zamandır bunula uğraşıyorum.ama olmuyor.ewet değiştirdim sayfa adlarını ama olmadı....:yardim:

 

[Levent Menteşoğlu]

sayın leventm hocam inanın kaç zamandır bunula uğraşıyorum.ama olmuyor.ewet değiştirdim sayfa adlarını ama olmadı....:yardim:

Olmaması için hiç bir sebep yok, mutlaka bir hata yapıyorsunuz. Yapmanız gereken benim verdiğim koda kendi sayfa adlarınızı yazarak VB editöründe sol üst köşedeki thisworkbook yazısını çift tıklayarak açılan sayfaya kopyalamaktır.

 

[Seyit Tiken]

Ben sadece soruyu anlamaya çalışıyorum. SAYFA derken, soldan sağa dizi halindeki Çalışma Kitabı'mı kasdediliyor? Yoksa tek bir Çalışma Sayfa'sında alt alta sıralanmış SAYFALAR mı kasdediliyor? Öngörülerim alternatif YÖNTEM olur mu-olmaz mı? Bunu bilemeyecem. İlk aklıma gelen, bir For Next döngüsünü oluşturup, yazdırma sırasını 5'inci sayfadan başlatabilirsiniz. İkincisi, SAYFALARI gizlemeyi deneyin...