Stampa ricursiva in PDF da maschera continua

Buongiorno a Tutti
Ho una tabella Fatture e relativa maschera continua. Alla fine dell'anno fiscale, l'obiettivo sarebbe quello di stampare in PDF tutte le fatture singolarmente nominandole con CognomeNome.pdf e poi archiviarle su cloud o disco esterno.
Ho scritto un piccolo codice che vorrei facesse questa cosa ma non funziona, in quanto stampa i singoli file con CognomeNome.pdf di ogni record ma dentro ai singoli file sono presenti tutte le fatture, mentre l'obiettivo sarebbe quello di avere un file.pdf per ogni fattura.
Qualcuno mi darebbe una mano a capire dove sto sbagliando ?
Grazie

Dim db As DAO.Database
Dim Tabella1 As DAO.Recordset
Dim rs As DAO.Recordset
Dim ConteggioRighe As Integer
Dim strReportName As String
Dim strWhere As String
Dim percorsoDir As String
Dim Nomefile As String
Dim Surname As String
Dim Name As String


'Definizione path di scrittura
percorsoDir = "C:\OutputPDF"

'Apertura DB
Set db = CurrentDb

'Apertura tabella
Set Tabella1 = db.OpenRecordset("Fatture", dbOpenDynaset)
'Apertura recodset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Fatture", dbOpenDynaset)
ConteggioRighe = rs.RecordCount

'Solo per debug poi si cancella
ConteggioRighe = DCount("*", "[Fatture]")
'MsgBox "N. Righe Auto = " & ConteggioRighe

'Mi posiziono sul primo record
rs.MoveFirst

Do Until rs.EOF

'Definisco il nome del report da eseguire
strReportName = "Stampa_Fatture_PDF"

'Assegno il cognome a Surname
Surname = rs.Fields("Cognome")
'Assegno il nome a Name
Name = rs.Fields("Nome")

Nomefile = percorsoDir & "\" & Surname & Name & ".pdf"

'Definisco una variabile per identificare il singolo record dal numero fattura
strWhere = rs.Fields("NumeroFattura").Value

'Apro il report
DoCmd.OpenReport strReportName, acViewPreview, , strWhere, acWindowNormal 'A regime AcHidden

'Stampo PDF
DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, Nomefile

'e chiudo il report che avevo aperto, specificando che non desidero salvarlo
DoCmd.Close acReport, strReportName, acSaveNo

' Passo al recordset successivo
rs.MoveNext

' e ricominciamo da DO ad elaborare la successiva riga del recordset fin quando non si arriva al suo termine EOF
Loop

'Chiusura Tabella
Tabella1.Close
'Chiusura DB
db.Close