ana
27 de Noviembre del 2003

Hola,
Alguien sabría decirme como puedo hacer para q a la hora d imprimir, el contenido del listbox me salga alineado a la derecha?
Gracias!!

Juan
27 de Noviembre del 2003

Prueba esto:

Dim i As Long
Dim margenDerecho As Single
margenDerecho = Printer.ScaleWidth
For i = 0 To List1.ListCount - 1
Printer.CurrentX = margenDerecho - Printer.TextWidth(List1.List(i))
Me.Print List1.List(i)
Next i