Çalışma sayfası sayfası ayarlarını/yazdırma alanını değiştirmek için döngü

Question

Birden çok sayfadan birden çok sayfadan oluşan bir Excel çalışma kitabını derlediğim bir noktaya sahibim. Sorun, hepsi farklı sayfa ayarlarına, baskı alanlarına vb. Sahipler. Baskı alanı ana şeydir, bu yüzden VBA'da belgenin tüm sayfalarını incelemek ve yazdırma alanını "sığdırmak için" değiştirmek için bir döngü kurmak istiyorum bir sayfada ". İşte yarattığım ve çalıştığım bir şey var, VBA'da çalışıyor ama aslında hiçbir şey olmuyor mu? : /. Ayrıca sayfada Merkezileştirmenin bir yolu var mı? Yani sadece sayfaya değil, sayfaya sığdırmak ve ortalamak değil mi?

Sub WsLoop() 

Dim ws As Worksheet 

    For Each ws In ActiveWorkbook.Worksheets 
     With ws.PageSetup 
     .Orientation = xlLandscape 
     .FitToPagesWide = 1 
     .FitToPagesTall = 1 
    End With 
    Next 

End Sub 

Answer 1

1. Excel 2010 benim için .Orientation çalışmaları ActiveWorkbook kullanımınız sorun olabilir; Beklediğinizden farklı Çalışma Kitabı seçerek olabilir. Çalışma kitabı adını ile kullanmayı deneyin. .Zoom = False
2. .CenterHorizontally ve PageSetUp nesnenin .CenterVertically özelliklerini sürprizler olmadan çalışması gerekir Scott

tarafından belirtildiği gibi Excel'de çalıştı: çalışmak .FitToPagesWide ve .FitToPagesTall için

, onlardan önce aşağıdaki koymak 2010 ve bu işler. .FitToPagesWide ve .FitToPagesTall için, "Dosya" menüsünde sadece "Yazdır" ı tıklattığınızda bunların doldurulduğunu görmezsiniz; Soldaki alt menü ve sağdaki önizleme arasında bölmenin altındaki "Sayfa Yapısı" bağlantısını tıklarsanız, bunların nüfusunu görürsünüz.