Udskrive adresselabels

Jeg har en tabel der skal løbes igennem og så skrives ud på f.eks. avery labels. Men jeg roder lidt rundt i det. Det er jo nemt nok at printe dem ud i én lang kolonne. Men der er jo f.eks. 3 labels i bredden og 5-6 i højden.

Nedenstående skriver koden ud i en enkelt kolonne. Hvordan får jeg det spredt ud i f.eks. 3 kolonner og 6 rækker på hver side ?

Do Until Data1.Recordset.EOF
If adresse = Data1.Recordset.adresse Then
GoTo Videre_uden_adresse
End If
P1.Print Data1.Recordset.fulde_navn
adresse = Data1.Recordset.adresse
Videre_uden_adresse:
Data1.Recordset.MoveNext
Loop