Sayfa yapısı
-
- Mesajlar: 1
- Kayıt: 23 Oca 2024, 01:57
- Lokasyon: Denizli
- Meslek: 3D Üretim Uzmanı
- Adınız: Kadir
- Soyadınız: SALDOĞAN
Sayfa yapısı
Merhaba arkadaşlar. Dosyamı başka bilgisayarda açınca sayfa sonları kayıyor. Bozuluyor. Ne yapabiliriz? Teşekkürler.
-
- Mesajlar: 84
- Kayıt: 24 Haz 2023, 00:23
- Web Sitesi: https://erseldemirel.com.tr/
- Adınız: Ersel
- Soyadınız: Demirel
Re: Sayfa yapısı
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
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