Sıfır Değerleri Yazıcıdan Çıktı almama

[ANTALYA 01]

Merhabalar

Ekteki tabloda E ve J Sütununda SIFIR Değer veren Satırların Yazıcıdan çıktı alırken çıkmamasını ve Sayfanın İçindeki verilerilere göre a4 Kağıdına sığacak şekilde Hücrelerin Büyümesini okunacak şekilde daraltmasını sağlayacak makroya ihtiyacım var aşağıdaki kod ile yapmaya çalıştım olmadı.
Tabloda 100 satır olabilir.

Sub Makro1()
For i = 46 To 150
If Cells(i, 13) = 0 Or Cells(i, 13) = "" Then Rows(i).EntireRow.Hidden = True
Next
[b1:j183].PrintPreview
Rows.EntireRow.Hidden = False
End Sub

 

[mbankaar]

Yazıcı çıktısı için sayfanın hazır olduğunu varsayarsak sayfadaki tüm sıfırların görünürlüğünü yok edip çıktıyı alır ve isterseniz tekrar sıfırları görüntülersiniz:

sub

'tüm sıfırları yok et
ActiveWindow.DisplayZeros = False
'Sayfayı A4'e otomatik sığdır
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
'Yazdır
ActiveWindow.SelectedSheets.PrintOut
'Sıfırları tekrar var et
ActiveWindow.DisplayZeros = True

end

 

[ANTALYA 01]

W

Merhaba

Cevabınız için tşk ederim.Bu kodu aldım module yapıştırdım Makroyu çalıştırdığımda aşağıdaki mesajı verdi rica etsem çalışmaya uygularmısınız

compile error
expected;ıdentifier

 

[ANTALYA 01]

D

Merhaba

Aşağıdaki kod E sütunundaki Değerleri sıfır olanları siliyor fakat j Sütunundaki değerleri sıfır olanlarıda nasıl sileriz.Hem E sütununu hemde J sütununu silmeli veya gizlemeli gizlese daha iyi olur yazıcıdan çıktı alırken



Sub sil()
Dim i As Long
Sheets(" SAYFA ADI").Select
Application.ScreenUpdating = False
For i = Cells(65536, "B").End(xlUp).Row To 4 Step -1
If Cells(i, "E").Value <> "" And Cells(i, "E").Value = 0 Then
Range("A" & i & ":E" & i).Delete (xlUp)
End If
Next i
For i = 4 To Cells(65536, "B").End(xlUp).Row
Cells(i, "A").Value = i - 3
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mbankaar]

Makroyu &#231;al&#305;&#351;t&#305;rd&#305;m sorunsuz &#231;al&#305;&#351;t&#305;

Sub s&#305;f&#305;rs&#305;z_yazd&#305;r()


't&#252;m s&#305;f&#305;rlar&#305; yok et
ActiveWindow.DisplayZeros = False
'Sayfay&#305; A4'e otomatik s&#305;&#287;d&#305;r
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
'Yazd&#305;r
ActiveWindow.SelectedSheets.PrintOut
'S&#305;f&#305;rlar&#305; tekrar var et
ActiveWindow.DisplayZeros = True

End Sub

Ayr&#305;ca s&#305;f&#305;rlar&#305;n t&#252;m sayfada g&#246;r&#252;nmesi/g&#246;r&#252;nmemesi i&#231;in: Men&#252;den; Ara&#231;lar>Se&#231;enekler>G&#246;r&#252;n&#252;m>S&#305;f&#305;r de&#287;erleri

Sayfay&#305; otomatik s&#305;&#287;d&#305;rmak i&#231;in men&#252;den; dosya>sayfa yap&#305;s&#305;>s&#305;&#287;d&#305;r

 

[ANTALYA 01]

T

Teşekkür ederim.
Çalışmamda uyguluyacağım