Sub PrintABunch()
  Dim i As Long, aSlide As Slide
  'ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = "aaa"   'ABC0300219001
  sFoot = "ABC0300219"
  For i = 1 To 200
    For Each aSlide In ActivePresentation.Slides
      aSlide.HeadersFooters.Footer.Text = sFoot & Format(i, "000")
    Next aSlide
    ActivePresentation.PrintOut
  Next i
End Sub