Excel - Consulta sobre pie de pagina

Sub ImprimirOC()

   Dim Dias As String

   '

   If [A2] = 0 Or [A24] <= 30 Then

      Dias = "Nota: Faltan " & [A24] & " Días para que termine la OC"

   End If

   '

   Application.PrintCommunication = True

   With ActiveSheet.PageSetup

      .RightFooter = Dias

      .LeftMargin = Application.InchesToPoints(0.393700787401575)

      .RightMargin = Application.InchesToPoints(0.393700787401575)

      .TopMargin = Application.InchesToPoints(0.393700787401575)

      .BottomMargin = Application.InchesToPoints(0.393700787401575)

      .FooterMargin = Application.InchesToPoints(0.31496062992126)

      .CenterHorizontally = True

      .Orientation = xlPortrait

      .PaperSize = xlPaperLetter

   End With

   Application.PrintCommunication = False

   ActiveWindow.SelectedSheets.PrintPreview (True)

   '

End Sub