Boş sayfalar yazdırılmasın

[Usyk]

Arkadaşlar Sayfa 2'de;
A1 =EĞER(Sayfa1!A1="";"";1)
A2 =EĞER(Sayfa1!A2="";"";A1+1)
A3 =EĞER(Sayfa1!A3="";"";A2+1)
A4 =EĞER(Sayfa1!A4="";"";A3+1)
......
şeklinde 1000 satırlık bir formül var. Mesela 60.kayda kadar veri doldurduğunda 2 sayfanın yazdırılması gerekiyor. Ama boş olan satırların da olduğu (yani 1000 satır) kaç sayfa varsa hepsini yazdırıyor.

Teşekkürler.


NOT: Konu 2006 yılında da geçmiş ama çözüm bulunamamış, inşallah bir yenilik olmuştur.

 

[PLİNT]

Arkadaşlar Sayfa 2'de;
A1 =EĞER(Sayfa1!A1="";"";1)
A2 =EĞER(Sayfa1!A2="";"";A1+1)
A3 =EĞER(Sayfa1!A3="";"";A2+1)
A4 =EĞER(Sayfa1!A4="";"";A3+1)
......
şeklinde 1000 satırlık bir formül var. Mesela 60.kayda kadar veri doldurduğunda 2 sayfanın yazdırılması gerekiyor. Ama boş olan satırların da olduğu (yani 1000 satır) kaç sayfa varsa hepsini yazdırıyor.
Teşekkürler.
NOT: Konu 2006 yılında da geçmiş ama çözüm bulunamamış, inşallah bir yenilik olmuştur.

Merhaba
Aşağıdaki şekilde yazdırma alanı belirleyebilirsiniz. Kod içinde "F" sütununu yazdırılacak sütuna göre ayarlarsınız.

Private Sub CommandButton1_Click()

Dim a As Long
For a = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(a, 1).Value <> "" Then Exit For
Next
ActiveSheet.PageSetup.PrintArea = "$A$1:$[COLOR="Red"]F[/COLOR]$" & a

'ActiveSheet.PrintOut


End Sub

 

[vardar07]

Merhaba. Makro ile yazdırma yapıyorsanız son dolu satır kontrolü ile yapılabilir. Dosyayı görmek lazım.

not:mesaj çakışması olmuş PLİNT arkadaş cevaplamış bile.

 

[Emir Hüseyin Çoban]

İnceleyiniz.

http://www.excel.web.tr/f47/excelde-dinamik-yazdyrma-alany-belirleme-t143999.html

.