A4 Kağıdına sığdırma

[ANTALYA 01]

Merhabalar

Aşağıdaki kod ile yazıcıdan çıkt alırken sıfır değerleri çıkarmadan çıktı alabilmekteyim fakat yazıcıdan çıktı alındığında Satır araları yüksekliği ve Hücre Büyüklükleri küçük olduğundan dolayı ufak gözüküyor bu koda ek veya 2.bir kodla sıfır değerler gizlendikten sonra A4 kağıdına sığacak şekilde bir makro yapılabilir mi ?

Sub GİZLE()
SAYFALAR = Array("ARAÇ_1")
For X = 0 To UBound(SAYFALAR)
Sheets(SAYFALAR(X)).Select
Cells.EntireRow.Hidden = False
For Y = 3 To [B65536].End(3).Row
If (Cells(Y, "E") + Cells(Y, "J")) = 0 Then Rows(Y).EntireRow.Hidden = True
Next
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[uzmanamele]

merhaba
aşağıdaki kodları araya monte ederek deneyin.
kodlar kayıt makrosu ile elde edilmiştir.

With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.Zoom = False
End With

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Sub GİZLE()
    SAYFALAR = Array("ARAÇ_1")
    For X = 0 To UBound(SAYFALAR)
    Sheets(SAYFALAR(X)).Select
    Cells.EntireRow.Hidden = False
    For Y = 3 To [B65536].End(3).Row
    If (Cells(Y, "E") + Cells(Y, "J")) = 0 Then Rows(Y).EntireRow.Hidden = True
    Next
    Next
    Cells.EntireColumn.AutoFit
    Range("A:A,F:F").EntireColumn.Hidden = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ANTALYA 01]

C

Merhabalar

Cevabınız için tşk ederim.Fakat Ben Yazıcıdan çıkarken Veriler gizlendikten sonra Veriler büyütülmüş şekilde A4 Kağıdının hemen hemen tamamına sığacak şekilde olmasını isityorum.Örnek ekledim.1.Makroyla gizlerim sıfır değerleri 2.makroylada yazıcıdan çıktı alınrken değelerin büyümesini istiyorum.

 

[ANTALYA 01]

G

Merhabalar

Sorunumu anlatabildim mi ?Vermiş olduğunuz makro Sığacak şekilde daraltıyor verileri fakat A4 Kağıdının Boyutuna göre Tam bir safyafa sığacak şekilde ayarlamasını istiyorum.