Yazdırırken boş satırları gizleyip yazdırma

[nihattt]

Epikriz sayfasında yazıcıdan çıktı almadan önce boş satırları gizliyorum fakat yinede boş sayfa yazdırıyor. bunu nasıl halledebilirim. Ben boş satırları yazdırmasın istiyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodların ThisWorkbook'un kod bölümünde olması gerek.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "epikriz" Then Exit Sub
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Aşağıdaki kodlarınsa bir modülde olması yeterli.

Sub Goster()
    Columns("A:A").EntireRow.Hidden = False
End Sub

 

[nihattt]

necdet bey sizin hazırladığını dosyayı direkt yazdır diyorum. 3 sayfa çıktı alıyorum. 2. sayfa boş çıkıyor. acaba sorun nerdedir.

 

[omerceri]

yazdır kodunu aşağıdaki gibi değiştirirseniz.
say = ActiveSheet.Range("A65536").End(3).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$" & say

 

[Necdet]

Merhaba,

Yazdırmadan önce sayfa sonlarını kaldırmak gerekir.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "epikriz" Then Exit Sub
[B][COLOR=red]ActiveSheet.Cells.PageBreak = xlPageBreakNone[/COLOR][/B]
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[nihattt]

çok minnettarım.

 

[Necdet]

Merhaba,

Güle güle kullanınız.