Sayfa yapısı
-
- Mesajlar: 1
- Kayıt: Sal Oca 23, 2024 1:57 am
- 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: Cmt Haz 24, 2023 12:23 am
- 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
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 3 Cevaplar
- 3518 Görüntüleme
-
Son mesaj gönderen Murat OSMA
-
- 13 Cevaplar
- 2356 Görüntüleme
-
Son mesaj gönderen emiroglu07
-
- 1 Cevaplar
- 1326 Görüntüleme
-
Son mesaj gönderen Alibuyuk66