Puoi limitarti ad impostare CurrentX, in questo modo:
codice:
'unità di misura nella stampa
Printer.ScaleMode = vbMillimeters

'prima riga
Printer.Print "Codice:"; 'nota il punto e virgola finale
Printer.CurrentX = 40    'sposto X di 40 millimetri
Printer.Print varCodice  'questa stampa prosegue sulla stessa riga della precedente

'seconda riga
Printer.Print "Cliente:";
Printer.CurrentX = 40
Printer.Print varCliente
Il puntoevirgola finale di alcune righe fa in modo che la stampa seguente continui sulla stessa riga, senza modificare quindi la proprietà CurrentY.