gizlenmiş satırları yazdırma

[aureliane]

merhabalar

Sub Makro3()
'
' Makro3 Makro
'

'

ActiveSheet.Unprotect
  For Each t In Range("A2:A66").Cells
    If t.Value = "" Then 'boş hücreleri gösterir
    t.EntireRow.Hidden = False
  End If
  Next t
    Range("D2:K66").Select
    ActiveWindow.SmallScroll Down:=-36
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$D$2:$K$66"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.433070866141732)
        .RightMargin = Application.InchesToPoints(3.93700787401575E-02)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -3
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    Selection.PrintOut Copies:=1, Collate:=True
    For Each t In Range("A2:A66").Cells
    If t.Value = "" Then 'boş hücreleri gösterir
    t.EntireRow.Hidden = True
  End If
  Next t
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

tamamen kıt bilgiyle böyle bir kod oluşturdum, (birçoğunu makro kaydederek) amacım gizli olan satırlardaki D2:K66 aralığını yazdırmak, illa daha düzgün kodla oluyordur ama yapamadım.
bu kod çalışıyor ama satırları açıp yazdırıp kapatma esnasında hücrelerin gelip gitme görüntülerini göstermek istemiyorum
bir yerde şöyle bişey denmiş ama uygulayamadım,
'Sayfa görünür hale getirip
'Çıktısını alıp
'Tekrar gizlerken
'Bu işlemlerin gözükmemesi için kodlarınız başına
application.screenuptading = false

bana yardımcı olabilirmisiniz.

 

[hmtstc]

ekran güncellemesini yapar ya da yapmaz,

application.screenupdating = false ( bu ekranı sabit tutar, ekranı güncellemez. )

en başa bunu yazın, Sub Makro3() ün hemen altına

 

[aureliane]

hata verdi hocam, debug dediğimde o satırı işaretledi

 

[hmtstc]

Sub Makro3()
Application.ScreenUpdating = False
' Makro3 Makro
'
bu şekilde hata mı verdi ?

 

[aureliane]

evet hocam