You could try a macro like this
Code:
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