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.
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
Saludos