This is exactly what I have...
Option Compare Database
Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
strSQL = "INSERT INTO TBLLetterHistory (LeadID, LtrDate, ReportName) "
strSQL = strSQL & "SELECT LeadID, Now() AS LtrDate, 'RPTLetterByPostcode' AS ReportName FROM...