1. sayfa (Toplam 1 sayfa)

Sayfa yapısı

Gönderilme zamanı: Cmt Şub 17, 2024 11:18 am
gönderen vba_kadir
Merhaba arkadaşlar. Dosyamı başka bilgisayarda açınca sayfa sonları kayıyor. Bozuluyor. Ne yapabiliriz? Teşekkürler.

Re: Sayfa yapısı

Gönderilme zamanı: Cmt Şub 17, 2024 12:19 pm
gönderen erseldemirel
Böyle sıkıntılar için Dosya her açıldığında yada sayfa aktif olduğunda sayfa ön izleme yazdırma yada hücre boyutları gibi önemli durumları kod ile tkr orjinal haline dönüşünü sağlayabilirsiniz.

Bu kod ile örneğin A1-C100 aralığını yazdırma alanı olarak belirliyor. Bunun gibi çözümler

Private Sub Workbook_Open()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$C$100"
.Orientation = xlLandscape ' Yatay sayfa yönelimi
.FitToPagesWide = 1 ' Genişliği bir sayfaya sığdır
.FitToPagesTall = False ' Yüksekliği bir sayfaya sığdırma
End With
End Sub