usando el objeto printer

[erbuson]

Hola:

Supongo que en este caso la única opción es que te recorte el texto hasta la longitud deseada, pero evidentemente ello dependerá de las coordenadas máximas que tengas previstas donde se puede imprimir.

Se supone que tienes una coordenada x supongamos DesdeX donde empezar a imprimir que será la que asignarás a Printer.CurrentX

Por otra parte conocerás otra x que es la posición máxima donde quieres que llegue el texto, supongamos que se llama HastaX

Entonces tendríamos que HastaX - DesdeX = TextWidth máximo que puedes permitirte.

Do While DesdeX + Printer.TextWidth(TuTexto) > HastaX
TuTexto = Left$(TuTexto, Len(TuTexto)-1)
Loop

Es de suponer que si no me he equivocado debería funcionar, escribo sobre la marcha y puedo haber cometido algun error de sintaxis.

Prueba y Comenta.

Saludos