Enumerar Pagina Correlativa y Ajustar Margen

A los miembros de este foro, en esta ocasión recurro a uds, y me brinden su apoyo en como mejorar la macro que describo a continuación, la macro debe permitir imprimir el nombre del archivo en uso y la numeración de pagina, como se muestra en la Imagen 1, dicha macro lo genere con la grabadora del excel, pero al parecer me deja errores, como se muestra en la imagen 2

Imagen 1:

Imagen 2: Código de la macro e Imagen Incorrecta

Sub ArreglaMargen()
Sheets("BOLETA").Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = "&F"
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Página &P de &N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(10.0393700787402)
.FooterMargin = Application.InchesToPoints(0.78740157480315)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 88
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.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
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=10, Copies:=2, Collate _
:=False, IgnorePrintAreas:=False
End Sub

En cuanto al arreglo del margen de la hoja que se meustra en la misma macro, ahi no tengo problema alguno, solo esta en numeración y mostrar el nombre del archivo.