Excel Sayfa Yapısı Farklılıkları

[mustafa1205]

Bilgisayarımda yapmış olduğum herhangi bir çalışmayı başka bir bilgisayar da açınca yazdırma alanında değişiklikler olabiliyor. Bu genelde başıma gelen birşeydi. Aklıma geldi sormak istedim bunu düzeltmenin bir yolu varmıdır. Yani bütün bilgisayarlarda yazdırma alanının değişmemesi sağlanabilir mi? Yoksa excel için bu normal bir durum mudur ?

 

[Orion1]

A1:C20 arasını yazdırma alanı olarak belirler.

Sub yazdirmaalani59()
ActiveSheet.PageSetup.PrintArea = "A1:C20"
End Sub

 

[mustafa1205]

Evren Hocam çok teşekkür ederim deneme imkanım yarın olacak lakin ben cevabınızı yanlış anlamışda olabilirim. Diyelim ki A1:C20 aralığı bu bilgisayarda tek sayfa olurken başka bilgisayarda A1:C19 ilk sayfa, kalan son satır ikinci sayfaya taşıyor. Bu kod bunu engelliyor mu acaba ?

 

[Orion1]

önce sütun aralılarının ayni olmasını sağlayınız.
Aşağıdaki yolladığım kodlarda yazdırma ile ilgili ihtayaçlarınızı karşılar sanırım.

'-------Kağıt İşlemleri--------
    sonsat = ActiveSheet.Cells(65536, "C").End(xlUp).Row
    '1'nci ve 2'nci satırlar Yazdırılırken Sabitleniyor.
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .PrintTitleColumns = ""
    End With
    'Yazdırılacak alan Belirtiliyor.
    ActiveSheet.PageSetup.PrintArea = "C1:AM" & sonsat
    With ActiveSheet.PageSetup
        'Kağıt Yatay Yazdırılıyor
        .Orientation = xlLandscape'Dikey yazdırmak=.Orientation = xlPortrait
        'Kağıt Boyutu A4 olarak belirtiliyor
        .PaperSize = xlPaperA4
        'Alt sayfa Yazızı veriliyor.(Sağ tarafa yazdırılıyor.
        .RightFooter = "Sayfa &P / &N"
        .FirstPageNumber = xlAutomatic
        'Yazdırılacak kağıdın Üst sınırı Cm Cinsinden Belirtiliyor.
        'Burada dikkat edilecek Husus (0.39 * 1.2) de değişken (1.2)oluyur.
        'Biz kaç cm olmasını istiyorsak (1.2) yerine O rakkamı girmeliyiz.
        .TopMargin = Application.InchesToPoints(1) * (0.39 * 1.2)
        'Yazdıralacak kağıdın Alt sınır Cm cinsinden Belirtiliyor.
        'Alt sınırı 1.5 Cm oluyor.
        .BottomMargin = Application.InchesToPoints(1) * (0.39 * 1.5)
        'Üst Bilgi Cm cinsinden ayarlanıyor.0.5 cm'ye ayarlanıyor
        .HeaderMargin = Application.InchesToPoints(1) * (0.39 * 0.5)
        'Alt Bilgi cm cinsinden 1 Cm'ye ayarlanıyor.
        .FooterMargin = Application.InchesToPoints(1) * (0.39 * 1)
        'Sol Boşluk 1.6 cm'ye ayarlanıyor.
        .LeftMargin = Application.InchesToPoints(1) * (0.39 * 1.6)
        'Sağ Boşluk 0.5 cm'ye ayarlanıyor.
        .RightMargin = Application.InchesToPoints(1) * (0.39 * 0.5)
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
ActiveSheet.PrintOut Copies:=1

 

[mustafa1205]

Hocam çok teşekkürler. Deneyip siz dönüş yaparım.