Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Hazır bi excel dosyam var. Bu dosyada 75 sayfa var. Tüm sayfalardaki sayfa yapısını değiştirmem gerekiyor. Tek Tek sayfaları seçerek sayfa yapısını değiştirmek yerine tüm sayfaların sayfa yapısını topluca nasıl değiştirebilirim?
Sayfa yapısından şunu anlayarak cevaplıyorum,
Sütun genişlikleri, renkler vs.
Tüm sayfaları alt taraftaki sayfalar sekmesinden seç. (Birinci sayfa seçili iken SHIFT tuşana basılı tutarak 75. sayfayı seç)
Şimdi sütun genişlileri, renk vs gerekli ayarlamaları yapabilirsiniz.
Tarkan bey, ben sayfa yapısı derken yazıcı açısından kenar boşluklarını anlatmak istemiştim. Ama dediğiniz gibi tüm sayfaları seçtim ve sonra kenar boşluklarını tekrar ayarladım. İşlem tamam. Teşekkürler.
bu işlemi foxpro ile oluşturulmuş bir excell dosyasında,foxproyu kullanarak nasıl yapabiliriz desem?Malum bazı kullanıcılar excelin ayarlarını dahi yapamıyorlar da :-) Bayağı kolaylık olmaz mıydı?
Aşağıdaki örnek size yol gösterecektir.
Local loExcel As "Excel.Application"
m.loExcel = Createobject("Excel.Application")
With m.loExcel As "Excel.Application"
.Application.ScreenUpdating = .F.
.Workbooks.Add
.Cells(1,1).Value = "www.fox4um.com"
With .ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
EndWith
.ActiveSheet.PageSetup.PrintArea = ""
With .ActiveSheet.PageSetup
.LeftHeader = "Sol Üst"
.CenterHeader = "www.fox4um.com"
.RightHeader = "Sağ Üst"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = m.loExcel.Application.InchesToPoints(0.75)
.RightMargin = m.loExcel.Application.InchesToPoints(0.75)
.TopMargin = m.loExcel.Application.InchesToPoints(1)
.BottomMargin = m.loExcel.Application.InchesToPoints(1)
.HeaderMargin = m.loExcel.Application.InchesToPoints(0.5)
.FooterMargin = m.loExcel.Application.InchesToPoints(0.5)
.PrintHeadings = .F.
.PrintGridlines = .F.
.PrintQuality = 600
.CenterHorizontally = .F.
.CenterVertically = .F.
.Orientation = 1 && xlPortrait = 1 xlLandscape = 2
.Draft = .F.
.PaperSize = 9 && xlPaperA4 = 9 xlPaperA3 = 8 xlPaperLetter = 1
.BlackAndWhite = .F.
.Zoom = 100
EndWith
.Application.ScreenUpdating = .T.
.Visible = .T.
EndWith
m.loExcel = .Null.
eksik olmayın arkadaşlar,Allah bu sitenin eksikliğini göstermesin,(ramazan duası gibi oldu ama).
selamlar;
With m.loExcel As "Excel.Application" satırı yerine With m.loExcel olmalı
With m.loExcel As "Excel.Application" şeklinde yazarsan with bloğunun içinde noktaya bastığında o klasın özellik ve metotlarını görürsün. Böylece daha kolay kod yazabilirsin.
VFP9
not aldım.
Excel sayfa yapısında "Fit to 1 page wide by 1 tall"
şeklinde printerin tek sayfasına sığdırmasını nasıl sağlayabiliriz acaba.
Teşekkürler.
Arkadaşlar aşağıdaki şekildeymiş.
loExcel.ActiveSheet.PageSetup.FitToPagesWide = 1
loExcel.ActiveSheet.PageSetup.FitToPagesTall = 1