Sayfayı sıgdırarak yazdırma

[ANTALYA 01]

Merhabalar

Aşağıdaki Kod ile Sayfadaki Sıfır Değerleri Gizleyerek verilere Ulaşıyorum.Fakat Baskı Önizlemeden Baktığımda Yazılar Çok küçük gözüküyor.Sayfaya Konacak 2 Bir butonla Baskı Önizlemeden baktığımdan Gizlenen Satırları Göstermeden Hücrelerin Sütun genişliğini ve Yazı Puntonu Büyütecek Sayfaya tam sığdıracak makroya ihtiyacım var gerekli açıklamaları Olması Gereken Sayfasında Anlatmaya çalıştım.

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

 

[Skorpiyon]

Sayın ANTALYA01,

"Sıfır" olan değerleri gizlediğinizde sayfadaki veri satırı her defasında değişeceğinden (ve sayfanız enlemesine çok geniş olduğundan) Excel'in Sayfaya Sığdır komutundan başka (el ile düzeltmeler hari&#231 yapılabilecek çok bir şey olduğunu sanmıyorum. Bu durumda bir buton ile sayfayı yan çevirerek çıktı almayı deneyebilirsiniz. Veriler biraz daha büyük görünecektir.

Yine de farklı bir çözüm bulabilecek arkadaşlar çıkabilir.

 

[ANTALYA 01]

W

Merhaba

Hiç düşünemediğim bir yol gerçekten iyi fikir peki bir butonla sayfayı sığdırıp yanlamasına çıktı alacak kod nasıl olur.

 

[htsumer]

Merhaba

Hiç düşünemediğim bir yol gerçekten iyi fikir peki bir butonla sayfayı sığdırıp yanlamasına çıktı alacak kod nasıl olur.

Sayfayı manuel olarak "Sayfa Yapısından" ayarlayacaksın..Bunun için makroya gerek yok..

 

[ANTALYA 01]

Ü

Teşekkür ederim