[Resolvido]Relatório, uma impressão para cada registro

Bom dia a todos,

Eu preciso criar um relatório que imprima um PDF diferente para cada registro da minha tabela.
Trata-se de carterinhas de uso das quadras da escola em que eu trabalho, Depois, eu posso compartilhar o banco de dados com vocês!

Por favor, alguém pode me ajudar?

Obrigado!


Consegui fazer, ainda que de uma maneira muito primária, mas resolvi.

Public Sub BdMunicipes()
Dim rst As Recordset
Dim strPesq As String
Dim strNome As String
Dim rstRel As Recordset

Set dbsM = CurrentDb


Set rst = dbsM.OpenRecordset("SELECT * FROM t_Municipes")

rst.MoveFirst

Do While Not rst.EOF

strNome = rst("Nome")

DoCmd.OpenReport "r_Cart_clean_PDF_unitario", acViewDesign, , , acHidden

Reports!r_Cart_clean_PDF_unitario.RecordSource = "Select * from t_Municipes where Nome='" & strNome & "'"

DoCmd.OutputTo acOutputReport, "r_Cart_clean_PDF_unitario", acFormatPDF, "\\computador\Users\Administrativo\Desktop\CARTEIRINHA DO CEU\pdf\" & strNome & ".pdf", False

rst.MoveNext

Loop


End Sub