devi fare una stringa a lunghezza fissa e mettere tanti spazi all'inizio quanti ne occorrono:

codice:
dim stringa as string
stringa=space(len("" & numero)-20) & numero
printer.print stringa
e così per ogni numero che devi stampare.

Ovviamente io ho messo 20, ma tu devi mettere quello che ti serve...