sayfaya sığdır kodu

[peleryn]

Herkese merhabalar;

Bir sayfayı yazdırırken eğer belirlenmiş sayfa ayarlarını geçecek kadar veri varsa yani 2. sayfaya taşıyorsa ve bu taşma 5 satıra kadarsa sayfaya sığdıracak şekilde ayarlama yapacak bir kod yazılabilir mi?

NOT:5 satırdan fazla taşma varsa 2. sayfada yazıcıdan çıkacak.

 

[Ömer]

Merhaba,

Kendi sınırlarınıza göre düzenlersiniz..

Sub Deneme()
son = [A65536].End(3).Row
If son < 62 Then
  ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & son
    With ActiveSheet.PageSetup
        .Zoom = False
    End With
  ActiveSheet.PrintOut
Else
  ActiveSheet.PageSetup.PrintArea = "$A$1:$I$112"
    With ActiveSheet.PageSetup
        .Zoom = 100
    End With
  ActiveSheet.PrintOut
End If
End Sub

.

 

[peleryn]

Ömer Hocam elinize sağlık bir iki ufak değişiklikle işimi tam gören bir kod oldu.Çok teşekkür ederim.