L'errore che riscontri non dipende dal codice che hai scritto, quello funziona in quanto nella prima riga inserisce gli spazi

codice:
Printer.Print Space(24) & "Prova di Stampa
ma poi chi gli dice di inserire gli altri spazi nel subitem?

Mi spiego: devi modificare il contenuto del subitems(4), che contiene diverse frasi; io non so il tipo di immissione dei dati, cmq ammesso che tu inserisca una riga del subitem alla volta dovresti fare:

codice:
stringa = stringa & valoredaaggiungere & space(24)
Non so se mi sono spiegato, cmq lo space all'inizio della riga di codice vale SOLO per la prima riga..

se non sono stato chiaro riposta..

ciao