Workbook_Open PageSetup ayarı

[a_self_lion]

selam arakadaşlar benim bir sorunum oludu;

Private Sub Workbook_Open()

' Makro1 Makro
' Makro Özcan Özarslan tarafından 23.07.2007 tarihinde kaydedildi.
'

'


For a = 1 To Sheets.Count

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "F01 01 001"
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.748031496062992)
.RightMargin = Application.InchesToPoints(0.748031496062992)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.118110236220472)
.FooterMargin = Application.InchesToPoints(0.118110236220472)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Next

End Sub

Bu makroyu ilk açılışta bütün sayfalara bu ayarların gelmesini isiyorum bunu nasıl yapabilirim. Çünkü bende 30 adet sayfa var her çalışma kitabımda. Şimdiden Teşekkürler

 

[veyselemre]

With Sheets(a).PageSetup

şeklinde deneyin

 

[a_self_lion]

Çok TeŞekkÜr Ederİm