Excel Vba Forum - Excelce.Net

EXCEL DOSYA ve KOD ÖRNEKLERİ (Sadece Okunabilir) => Excel Menüleri => DOSYA => Konuyu başlatan: Excelce.Net - 08 Ocak 2010, 08:58:00

Başlık: Dosya: Sayfa Yapısı | Dosya: Yazdırma Alanı | Dosya: Baskı Önizleme
Gönderen: Excelce.Net - 08 Ocak 2010, 08:58:00

Dosya: Sayfa Yapısı

(http://www.excelce.net/excelceresim/sayfayapisi1.jpg)

Ayarlanabilecek seçenekler:

1-Sayfa; Yatay/Dikey , Küçültme/Büyütme , Sığdırma , Kağıt boyutu ve baskı kalitesi,

2-Kenar Boşlukları; Sağ/Sol/Alt/Üst , Üstbilgi/Altbilgi , Yazıları kağıda Yatay/Dikey ortalama,

3-Üstbilgi/Altbilgi; Yazıların biçimlendirilebileceği, resimlerin ve aşağıdaki özelliklerin eklenebileceği alanlar:
&[Sayfa] - Kaçıncı sayfa olduğu
&[ToplamSayfa] - Toplam sayfa sayısı
&[Tarih] - Tarih
&[Saat] - Saat
&[Yol]&[Dosya] - Mevcut dosyanın yolu ve adı
&[Dosya] - Dosya adı
&[Sekme] - Sayfa adı

4-Çalışma Sayfası; Yazdırma alanı, Üstte yinelenecek satırlar, Solda yinelenecek sütunların belirlendiği,
yazdırma esnasında, kılavuz çizgilerinin, satır ve sütun başlıklarının, hücre açıklamalarının görünüp görünmemesi tercihlerinin yapıldığı sekme.

Dosya: Yazdırma Alanı
Alt + D / L / Enter kısayolu ile de ulaşılabilen "Yazdırma Alanı" menüsünden, sayfa içindeki belirli bir alanı
seçip, "Yazdırma Alanını Belirle" menüsüne tıklamak suretiyle, sadece o alanın yazdırılmasını sağlamak mümkündür.
"Yazdırma Alanını Temizle" menüsü ile de belirlediğimiz alanı iptal edebilir, yerine başka bir alan seçebiliriz.


Dosya: Baskı Önizleme
Sayfayı yazdıcıya göndermeden önce sayfaya ne şekilde yazdırılacağını görebileceğimiz, kenar boşlukları, alt ve üstbilgi ile sayfa sonlarını ayarlayabileceğimiz menüdür.

Başlık: Makro ile Dosya Sayfa Yapısı | Yazdırma Alanı | Baskı Önizleme
Gönderen: Excelce.Net - 10 Ocak 2010, 02:27:06

Dosya: Sayfa Yapısı

Yatay/Dikey;

Kod: [Seç]

ActiveSheet.PageSetup.Orientation = xlLandscape 'YATAY
ActiveSheet.PageSetup.Orientation = xlPortrait 'DİKEY
Küçültme/Büyütme;

Kod: [Seç]

ActiveSheet.PageSetup.Zoom = 80     ' % 80 'e küçültülür
Kağıt boyutu;

Kod: [Seç]

ActiveSheet.PageSetup.PaperSize = xlPaperA4  'A4 boyutu
Dosya: Yazdırma Alanı

Kod: [Seç]

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$12"
Dosya: Baskı Önizleme

Kod: [Seç]

ActiveWindow.SelectedSheets.PrintPreview
Üstte yinelenecek satırlar;

Kod: [Seç]

ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
Solda yinelenecek sütunlar;

Kod: [Seç]

ActiveSheet.PageSetup.PrintTitleColumns = "$A:$A"
Altbilgi/Üstbilgi;

Kod: [Seç]

ActiveSheet.PageSetup.LeftHeader = "Sol üst bilgi"
ActiveSheet.PageSetup.CenterHeader = "Orta üst"
ActiveSheet.PageSetup.RightHeader = "Sağ üst"
ActiveSheet.PageSetup.LeftFooter = "Sol alt bilgi"
ActiveSheet.PageSetup.CenterFooter = "Orta alt"
ActiveSheet.PageSetup.RightFooter = "Sağ alt"


Başlık: Makro ile Dosya Sayfa Yapısı | Yazdırma Alanı | Baskı Önizleme
Gönderen: Excelce.Net - 10 Ocak 2010, 02:32:27

Satır ve sütun başlıklarını yazdırmak için;

Kod: [Seç]

ActiveSheet.PageSetup.PrintHeadings = True
Kılavuz çizgilerini yazdırmak için;

Kod: [Seç]

ActiveSheet.PageSetup.PrintGridlines = True
Hücre açıklamalarını yerlerinde yazdırmak için;

Kod: [Seç]

ActiveSheet.PageSetup.PrintComments = xlPrintInPlace
Hücre açıklamalarını sayfa sonunda yazdırmak için;

Kod: [Seç]

ActiveSheet.PageSetup.PrintComments = xlPrintSheetEnd
Sayfayı yatay ve dikey ortalamak için;

Kod: [Seç]

ActiveSheet.PageSetup.CenterHorizontally = True
ActiveSheet.PageSetup.CenterVertically = True