Addnew Only Adds One Record!!

I have the following code which is supposed to insert a new record into TBLLetterHistory when a report is printed. The report is based on a Query which selects the records based on their postcode.

What actually happens is that only the first record in the query is inserted into the History Table. Any suggestions would be gratefully recieved as I have no idea, even after long searches in this forum!!


Private Sub Report_Activate()
Flag = 0
End Sub

Private Sub Report_Deactivate()
Flat = -1
End Sub

Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
Dim dbs As DAO.Database, rst As DAO.Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("TBLLetterHistory")

Flag = Flag + 1
' If the current value of Flag = 1, then a hard copy of the
' report is printing, so add a new record to the history table.
If Flag = 1 Then
rst.AddNew
rst!ReportName = "RPTLetterByPostcode"
rst!Date = Now
rst!LeadID = [QRYLetterByPostcode.LeadID]
rst.Update
rst.MoveNext
' Flag = 0

End If
End Sub