Belirli aralıktaki boş olan satırlar yazıcıda dökülmesin

[svtcsn]

Arkadaşlar kolay gelsin,
excelde bir formumvar formun boyutu 1 sayfadan fazla ama genellikle form dolduran kişiler en fazla bir sayfalık kısmını dolduruyorlar ve çıktı alıyorlar akat boş yere 2 sayfa birden gereksiz yere harcenıyor yazdırmada sığdır seçeneğini kullandığımda da çok küçük oluyor. bu sorunu aşmak için belirli alanda(ornekte koyu olarak çizilmiş) boş olan satırları ( sarı renkli) çıktı alırken yazdırmasın yada gizlesin gibi birşeyler mümkün mü acaba?:dusun:

 

[Ömer]

Merhaba,

Yazdırmak için buton ekleyerek bu kodları kullanın.

Sub Yazdır()
son = [B80].End(3).Row + 1
Application.ScreenUpdating = False
If [B80] <> "" Then Exit Sub
    Rows(son & ":80").EntireRow.Hidden = True
        ActiveSheet.PrintOut
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

.

 

[svtcsn]

Merhaba,

Yazdırmak için buton ekleyerek bu kodları kullanın.

Sub Yazdır()
son = [B80].End(3).Row + 1
Application.ScreenUpdating = False
If [B80] <> "" Then Exit Sub
    Rows(son & ":80").EntireRow.Hidden = True
        ActiveSheet.PrintOut
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

.

Hocam Ellerine Sağlık tam istediğim gibi olmuş.k::