Puede descargar de helpmybusinesspos.info el formato “ticket reducido” y por lo que identifico solo sería necesario quitar a algunas partes el texto que hace los saltos de línea :
& cLineaNueva
Para colocar la línea punteada, identifique la línea sonde dice
cSalida = cSalida & "CANT. DESCRIP. P.U. TOTAL" & cLineaNueva
Y le colocamos este código
cSalida = cSalida & "---------------------------" & cLineaNueva
cSalida = cSalida & "CANT. DESCRIP. P.U. TOTAL" & cLineaNueva
cSalida = cSalida & "---------------------------" & cLineaNueva