Sayfa yapısı

[manisali61]

Arkadaşlar merhaba..
Diyelim ki 100-150 sayfalık bir çalışma kitabı hazırlayacağım..İlk sayfayı tüm özellikleriyle hazırlayıp,ondan sonra "Taşı veya Kopyala" yöntemiyle sayfayı çoğaltıyorum..Fakat son hazırladığım kitapta bunu yapmayı unutmuşum..
Kitabı açtığımda sayfa yapısındaki kenar boşluklarından taştığını ve hepsinin 2 sayfa olduğunu gördüm.Sayfa yapısından kenar boşluklarını ayarlayıp bunu 1 sayfa haline getirmek istiyorum..Ama takdir edersiniz ki 200 sayfayı tek tek yapmak bir günümü alacak..
Bu işlemi en kısa yoldan asıl halledebilirim??
Şimdiden teşekkürler

 

[manisali61]

Arkadaşlar yardımlarınızı bekliyorum

 

[manisali61]

Arkadaşlar sonradan aklıma geldi..Bir ufak soru daha eklemek istiyorum.
Bir "Veri tabanı" klasörüm var bir de "Bakım". Bakım klasöründeki çoğu bilgiyi veri tabanı dosyasından alıyorum.Ancak;veri tabanı klasörünü açmadan önce bakım dosyasını açarsam veri tabanından aldığım bilgilerin yerinde #DEĞER uyarısı çıkıyor..Veri tabanı klasörünü açınca durum düzeliyor..Nedeni ne olabilir ve nasıl düzeltebilirim?

 

[uzmanamele]

merhaba

2. sorunuzu başka bir konu açarak sorunuz.
ilk sorunuz için basit bir yöntem önereyim.
nasıl bir sayfa yapısı kurguladığınızı bilmediğim için kodlar varsayım üzerinedir, siz kendiniz değiştirmeye çalışın.

makro kaydet yöntemini kullanarak 1. sayfa için sayfa yapısını oluşturun ve kaydı durdurun.
sonra bu kodları tüm sayfalarda çalıştırmak için başta 2 ve sonda 1 satır ilave edin. (bunlar örnek kodlarda kırmızı renkle gösterilmiştir)

Sub Makro1()
[COLOR="red"]For i = 1 To Sheets.Count
Sheets(i).Select[/COLOR]    
[COLOR="Blue"]With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.905511811023622)
        .RightMargin = Application.InchesToPoints(0.118110236220472)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.15748031496063)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With[/COLOR]
        [COLOR="SeaGreen"]'ActiveWindow.SelectedSheets.PrintPreview[/COLOR]   
 [COLOR="Red"]Next[/COLOR]
End Sub

 

[manisali61]

Sayın hocam önce ilginize teşekkür ediyorum ama makro çalışmıyor ve .InchesToPoints hatası veriyor

 

[leumruk]

Syn manisali61,
Aşağıdaki yöntemi takip edin.
Herhangi bir sayfa sekmesine sağ tıklayın. "Tüm Sayfaları Seç" komutuyla tüm sayfaları seçin. Ardından sayfa ayarlarınızı yapın. Farklı bir sekmeye geçerek seçimleri iptal edin. Ayarlarınız tüm sayfalarda yapılmış olacaktır. Bu yöntem sayfa ile ilgili tüm ayarlarınızda işe yarayacaktır.