yazdırma

[rizza]

Merhabalar;
öncelikle şimdi açtığım konu hakkında forumda arama yaptığımı ancak bulmadığımı belirteyim.

şimdi benim problemim kısaca şunlar:

ekdeki tablomda dolu olan yazdırma alanlarını yazdırmak istiyorum...Ekli dosyayı görüntüle deneme.xlsx

 

[N.Ziya Hiçdurmaz]

yanıt

Sub yazdir()
Dim son As Integer
son = Cells(Rows.Count, "b").End(xlUp).Row
    Range("a3:e" & son).PrintPreview
End Sub

 

[rizza]

hocam çok teşekkür ederim ilginize ben tabloyu yanlış göndermişim doğrusu ekledim tekrar bakabilirmisiz.

 

[N.Ziya Hiçdurmaz]

İki tablo arasında çok fark var, ikincisinde çok sayıda tablo ve dolu hücre mevcut.

 

[rizza]

hocam haklısınız ama istediğim dolu olan tabloları yazdırmak bazen 4 bazen 6 sayfa yazdırmam gerekli oluyor istediğim yazdırma butonuyla dolu olan hücreye yazdırmak ilginize bir kez daha teşekkür ederim..