usando el objeto printer

[rdm]

Gracias por la pronta respuesta, efectivamente, el camino que estaba siguiendo está apuntado a una solución por esa vía, pero puse este post por las dudas existiera alguna instrucción que funcionace cortando el texto enviado a la impresora sin tener que ajustar esto a mano.

A continuación pongo el código de una pequeña función que, de ser necesario, trunca una cadena hasta ajustarla dentro de un ancho preestablecido.

Private Function TextTruncado(cadTexto As String, anchoDisp As Integer) As String
Dim cadDevo As String
Dim x As Integer
If Printer.TextWidth(cadTexto) > anchoDisp Then
For x = 1 To Len(cadTexto)
cadDevo = cadDevo + Mid(cadTexto, x, 1)
If Printer.TextWidth(cadDevo) > anchoDisp Then
Exit For
End If
Next x
TextTruncado = cadDevo
Else
TextTruncado = cadTexto
End If
End Function

Nuevamente gracias y saludos.