Innanzitutto grazie per l'interessamento !
Il programma è così strutturato (un pò obsoleto ! ) :
ogni abbonato ha un file .dat, contrassegnato con il numero di tessera, (es. Tes001.dat) con all'interno tutti i dati necessari alla stampa ( Nome, Cognome, Tariffa etc.)
Il ciclo di stampa è il seguente:

For h = 1 To 500
NomeFile = "c:\Abbonati\Abbonati\Tes" + Format(h, "000") + ".dat"
temp = Dir$(NomeFile)
If Len(temp) <> 0 Then
a = a + 1
End If
Next h
For s = 1 To a
On Error GoTo gestione1
NomeFile = "c:\Abbonati\Abbonati\Tes" + Format(s, "000") + ".dat"
Open NomeFile For Input As #1
Input #1, Annullato, tr, cognome, nome, Tariffa, Differenza
Close #1
If Annullato = "Si" Then GoTo fine50
lblValidità = Validità
lblTessera = "TESSERA N. : " + Tes + Format(s, "000")
lblTratta = tr
lblNoCo = nome + " " + cognome
lblTariffa = "E. " + Format(Tariffa, "00.00")
Open "Lpt1:" For Output As #1
Print #1, lblValidità
Print #1, lblTessera
Print #1, lblTratta
Print #1, lblNoCo
Print #1, lblTariffa
Print #1,
Print #1,
Print #1,
Print #1,
Close #1
Next s

Le etichette sono formalmente perfette, la stampa è distanziata in maniera corretta ma resta il grosso problema dell'inizio.
Attendo un aiuto.
Grazie ancora.