Provo a darti una mano:
Se nel menu non ti appare la casella "Sviluppo", vai su File, Opzioni, Personalizza barra multifunzione e spunta la casella "Sviluppo"
Posizionati con Excel sul file del modulo da stampare
Quindi clicca su "Sviluppo", "Visual basic" e seleziona "Foglio1" o come si chiama il foglio contenente il modulo
Nella finestra che ti appare copia il seguente codice:
Sub stampa()
Dim cFileNomi As String, iRiga As Integer, cFoglioNomi As String
Dim cNome As String, cCognome As String, cDataNasc As Date, cLuogoNasc As String
cFileNomi = "NOMI.xlsx"
cFoglioNomi = "Foglio1"
iRiga = 1
Do
Workbooks(cFileNomi).Activate
Sheets(cFoglioNomi).Select
iRiga = iRiga + 1
If Sheets(cFoglioNomi).Cells(iRiga, 1).Value = "" Then Exit Do
cCognome = Sheets(cFoglioNomi).Cells(iRiga, 1).Value
cNome = Sheets(cFoglioNomi).Cells(iRiga, 2).Value
cDataNasc = Sheets(cFoglioNomi).Cells(iRiga, 3).Value
cLuogoNasc = Sheets(cFoglioNomi).Cells(iRiga, 4).Value
ThisWorkbook.Activate
Cells(10, 2).Value = cCognome
Cells(12, 2).Value = cNome
Cells(13, 2).Value = cDataNasc
Cells(14, 2).Value = cLuogoNasc
DoEvents
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Loop
End Sub
Il programmino suppone che il file con i nomi si chiami "NOMI.xlsx", il foglio relativo "Foglio1" e i dati inizino dalla seconda riga, altrimenti variali.
Posizionandoti all'interno del codice e premendo F5 esegui. Per provare è meglio avere solo un paio di righe di nomi. Al primo cognome in bianco la stampa si ferma ed esce.
Divertiti.
P.s. Il file col codice lo devi salvare con .xlsm
Ciao
