Son Dolu Hücreye Göre PDF Yazdırma

@Necmi25

PDF belge adı olarak, Anasayfa A12 hücresindeki metin kullanılır.
PDF, excel belgesiyle aynı dizine kaydedilir.
Alan: Anasayfa A1'den, Anasayfa A sütunundaki en büyük sayı + 13 sonucu kaçsa,
A1'den o satıra kadarlık kısım.

Teşekkürler hocam. Ancak iki husus var.
1)Ekte ki dosyada da göreceğiniz üzere, pdf yazdır butonuna tıkladığımda sayfanın yazdırma alanı sağa doğru genişliyor ve yeni sayfalar açıyor.

2) A sütununda aşağı doğru inildiğinde veri olarak en son dolu olan satırın olduğu yere kadar yazdırması gerekli hocam. Örneğin veri içeren A25 satırına kadar olan kısmı yazması lazım, A25-A34 arasında formül var ancak veri yok, bu nedenle sanki bu hücreler boşmuş gibi kabul edilip bu kısımlar yazdırma alanı içinde olamaması gerekli.

Bu durumlar yapılabilirse yeterli hocam. Teşekkürler.

Ek olarak;
3)A sütununda yazdırmaya başlanacak ilk satırı da belirleyebilirseniz çok iyi olur. Örneğin bu dosya için A13 den sonra yazdırma alanı başlayabilir.

@Necmi25
Şöyle deneyin.

Ömer BARAN' Alıntı:

@Necmi25
Şöyle deneyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

Genişletmek için tıklayın ...

Çok teşekkürler. Elinize sağlık. Saygılar.

Merhaba Ömer Bey;

Hocam aslında problem çözüldü ancak yazdırma alanına birden fazla sütun eklemek istediğimde formül hata veriyor. Acaba aynı çözümü birden fazla sütunu da içine alabilecek şekilde düzenleyebilir misiniz. Ben yapamadım. Ekte ki dosya da sarı renkli alanda içinde veri barındıran A sütununda ki son hücre olan A25e kadar ki alanın yani a13:c25 alanının pdf olarak yazdırılabilir mi hocam. Yani içinde formül de bulunsa veri yoksa boş kabul edilecek olan A sütununda ki son satırdan, o satırın C sütunundaki karşılığının bulunduğu yere kadar olan alan yazdırılması lazım.

Çok Teşekkürler. Saygılar.

Son belgeye bakmadım.
Verdiğim kodda, kırmızı işaretlediğim sütun harfini C olarak değiştirin.
.Range("A13:A"

Ömer BARAN' Alıntı:

Son belgeye bakmadım.
Verdiğim kodda, kırmızı işaretlediğim sütun harfini C olarak değiştirin.
.Range("A13:A"

Genişletmek için tıklayın ...

Onu yaptım ancak sadece a13:c13 alanını yazdırdı. Acelesi yok hocam, müsait bir zamanda baksanız da olur.

Teşekkürler.

Ömer BARAN' Alıntı:

Şöyle deneyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

Genişletmek için tıklayın ...

Tamamdır hocam. Çok teşekkür ederim. Elinize sağlık.