Acortar una cadena de caracteres.

fuensa82
09 de Septiembre del 2005
Hola, a ver si me podeis ayudar.
Lo que tengo es un List en el que voy metiendo nombres de articulo que pueden tener hasta 50 caracteres pero a la hora de imprimir los tengo que dejar en 40 caracteres, como puedo hacer esto? el codigo que uso para imprimir es este:
Printer.Print "Descripción de la Compra"
Printer.Print "-----------------------------------"
Printer.Print "Art. Cant. Precio"
Do While i <= Listarticulo.ListCount - 1
Printer.Print Listarticulo.List(i)
i = i + 1
Loop
Printer.Print " Total:" & vtotal
Printer.Print "Hasta pronto"
Printer.EndDoc

Muchas gracias por vuestro tiempo.

mvallejos
09 de Septiembre del 2005
Printer.Print Mid(Listarticulo.List(i),1,40)

Saludos