Makro ile sayfa yapısı ve yazdırma alanı (Kodlar ve Anlatımı)

[TanerSaydam]

Merhaba;

Az önce bu konuyla ilgili bir işim vardı ama burada bu tarz bir konu göremedim. Ondan buradaki arkadaşları da bilgilendirmek amaçlı başka yerden bulduğum açıklamayı aynen aktarıyorum. Umarım birilerinin işine yarar.

Dosya: Sayfa Yapısı

Yatay/Dikey;

ActiveSheet.PageSetup.Orientation = xlLandscape 'YATAY
ActiveSheet.PageSetup.Orientation = xlPortrait 'DİKEY

Küçültme/Büyütme;

ActiveSheet.PageSetup.Zoom = 80     ' % 80 'e küçültülür

Kağıt boyutu;

ActiveSheet.PageSetup.PaperSize = xlPaperA4  'A4 boyutu

Dosya: Yazdırma Alanı

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$12"

Dosya: Baskı Önizleme

ActiveWindow.SelectedSheets.PrintPreview

Üstte yinelenecek satırlar;

ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"

Solda yinelenecek sütunlar;

ActiveSheet.PageSetup.PrintTitleColumns = "$A:$A"

Altbilgi/Üstbilgi;

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"

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

ActiveSheet.PageSetup.PrintHeadings = True

Kılavuz çizgilerini yazdırmak için;

ActiveSheet.PageSetup.PrintGridlines = True

Hücre açıklamalarını yerlerinde yazdırmak için;

ActiveSheet.PageSetup.PrintComments = xlPrintInPlace

Hücre açıklamalarını sayfa sonunda yazdırmak için;

ActiveSheet.PageSetup.PrintComments = xlPrintSheetEnd

Sayfayı yatay ve dikey ortalamak için;

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

 

[cems]

Neredeyse her kodlamada düzenli bir sayfa görünümü için bunlardan birkaçı gerekiyordu. Bu bilgi demetinin hazır başvuru çok önemliydi , arşivimdeki tahtında yerini aldı ..

Teşekkürler Sn TanerSaydam

 

[TanerSaydam]

Neredeyse her kodlamada düzenli bir sayfa görünümü için bunlardan birkaçı gerekiyordu. Bu bilgi demetinin hazır başvuru çok önemliydi , arşivimdeki tahtında yerini aldı ..

Teşekkürler Sn TanerSaydam

Bana değil de, bu kodları böyle hazırlayana teşekkür etmek gerek Bugün hazırladığım bir excel için bu kodlar gerekiyordu ve çok işime yaradı.

 

[hopehope55]

Merhaba Bize biraz yardımcı olabilirmisiniz ?
Bir Programdan Liste yaptık ve Masaüstüne excel formatı ile attık.
Excel ile onu açtığımızda
Sayfa Yapısının O listeye göre otomatik ayarlarlanmasını sağlayacağımız ve Otomatik olarak Üst Bölmesinin Dondurulmuş bir şekilde gelmesini sağlayan ayarlar mevcutmudur