Makrolar ile Sayfa Başlıklarını Yazdırma

Bir önceki başlıkta yukarıda bahsettiğim sorunlardan dolayı tekarar konu açıldı.

Sonraki dönemlerde, bu gibi durumlarda yeni konu açmak yerine, özel mesaj ile var olan konunun kilidini kaldırmayı isteyebilirsiniz.

Arkadaşlar yardımalrınızı rica ediyorum.

Soruyu tam anlamadım.
Örnek belgede biri gizli olmak üzere toplam 2 adet sayfa var.
Anlaşılan o ki; örnek belgeniz gerçek belgeden farklı yapıda.

Ayrıca YAZDIRMA işleminin;
-- ilgili sayfa aktif iken klasik menü üzerindeki düğmeyle veya CTRL+P kısayol tuşuyla mı yapılacağı,
-- yoksa sayfalardan birine veya birkaçına yerleştirilecek düğmelere atanacak makro koduyla mı yaptırılacağı,
-- tek tıklamayla tüm sayfaların mı yazdırıldığı, sayfalardan her birinin ilgili sayfa seçilerek (aktif sayfa haline getirilerek) tek tek mi yazdırılacağı,
gibi hususlar net değil.

Yazırma işlem CTRL+P ile yapılacak.

Bu durumda sayfa isimleri üzerinden hareket etmek daha doğru gibi görünüyor.
Koddaki döngü içinde sayfa numarasından hareket etmek yerine sayfa isimlerinden hareket etmek daha mantıklı gibi görünüyor.

If i = 1 Or i = 2 Or ..... yerine
If i.Name = "İŞ GÜV " Or i.Name = "BELİRLİ İŞ SÖZLEŞMESİ" Or...... gibi bir yapı düşünülebilir.
Bu şekilde, 49'uncu satırın başlık olarak kullanılacak sayfa isimleri kodda belirtilip,
ActiveSheet.PageSetup.PrintTitleRows = "$49:$49"
diğer sayfalar (ELSE kısmı) için ise
ActiveSheet.PageSetup.PrintTitleRows = "" yerine ActiveSheet.PageSetup.PrintTitleRows = "$26:$26" gibi düşünülebilir.

Çalışma kitabı açıldığında makro aktif sayfa haline getirilerek tek tek ve toplu olarak yazdırma işlem CTRL+P ile yapılacak, If i = 1 Or i = 2 Or ..... İŞ GÜV safasındaki sayfaları ifade eder.

En baştan beri yazılan şeyleri de TAM OLARAK anlamamıştım ve
başka bir anlaşılmaz ibare de son mesajla geldi "tek tek ve toplu olarak".

-- "Üstte yinelenecek satır",
bir excel sayfası yazdırıldığında bu tek excel sayfasının yazıcıdan alınacak her bir sayfasında olmak üzere, o sayfadaki bir satırı ifade eder.
-- "Üstbilgi" olarak eklenecek bilgi.

Bu ikisi aynı şey değil ve sizin olayınızda bahse konu şey hangisidir onu da bilemiyorum.

-- İŞ GÜV. sayfası yazıcıya gönderildiğinde 10 sayfa tutuyor (istek sadece bu excel sayfası için midir net değil),
-- Gizli durumdaki BELİRLİ İŞ SÖZLEŞMESİ sayfası ise 2 sayfa tutuyor (istek bu excel sayfasını da ilgilendiriyor mu anlaşılmıyor),
-- Gerçek belgede başka sayfalar da var mıdır, örnek belgede olmayıp gerçek belgede olan başka sayfaların, açtığınız bu konu ve işlemle bir ilgisi/bağlantısı var mıdır orası da belli değil.

Verdiğim kodda hata yapmışım, ilk kod satırında yer alan;
If Not ActiveSheet.Name <> "İŞ GÜV " Then Exit Sub
kısmı
If ActiveSheet.Name <> "İŞ GÜV " Then Exit Sub
olacak idi (önceki cevabımdaki kodu güncelledim, sayfayı yenileyerek kodun son haline bakın).

Böylece verdiğim kod sadece İŞ GÜV sayfasında işlem yapacak.

Ömer abi çok teşekkür ederim.