Yazdırma Alanı Belirleme

[poetika]

Merhaba. Ekteki dosya 75 satırlı ve son satırın altında hesaplama ve imza bilgilerinin olduğu iki kutu var. Yazdırırken, örneğin 35 satıra bilgi girildi. 35 satırın altına hesaplama ve imza bilgilerinin yerleşerek yazdırmasını, 35-75 arasındaki boş olan satırların yazdırmada görünmemesini istiyorum. Mümkün mü acaba? Teşekkürler.

 

[Muzaffer Ali]

Boş olan / Yazdırılmasını istemediğiniz satırları seçip sağ tıklatın /Gizle seçin.
Gizli sayfalar yazdırılmayacaktır.
Yazdırdıktan sonra gizli satırların üst ve altından satırlar seçerek sağ tıklatın /Göster seçin.

 

[poetika]

Boş olan / Yazdırılmasını istemediğiniz satırları seçip sağ tıklatın /Gizle seçin.
Gizli sayfalar yazdırılmayacaktır.
Yazdırdıktan sonra gizli satırların üst ve altından satırlar seçerek sağ tıklatın /Göster seçin.

Bu dosya korumalı olacak ve onlarca kişi tarafından kullanılacak. O yüzden manuel bir yöntem uygun değil. Başka bir çözüm yok mu?

 

[Muzaffer Ali]

İsterseniz kod kullanarak yapılabilir.
Parola yerine "123" kullndım siz kendi parolanızı yazarsınız.

Kodlar B4 ve B78 hücreleri arasında değer olmayan satırları gizler.
ve bütün gizli satırları gösterir.

Const Parola As String = "123"

Sub BoslariGizle()
    Dim Bak As Range
    Unprotect Parola
    For Each Bak In Range("B4:B78")
        If Bak.Text = "" Then Rows(Bak.Row).Hidden = True
    Next
    Protect Parola
End Sub

Sub BoslarıGoster()
    Unprotect Parola
    Rows.Hidden = False
    Protect Parola
End Sub