Imprimir los items de un ListBox

hola, Fabian !

... imprimir un listado de items... y encontre: PrintForm... pero solo imprime los... que se ven en el UserForm
... codigo para imprimir un listadito de los items contenidos en un ListBox.

mientras NO los 'bajes' en algun rango/hoja/libro... [o algo 'parecido'] creo que va a estar 'en chino' :D
suponiendo que el listbox es de solo una columna, el siguiente codigo [asociado a algun boton en el formulario]...
-> limpia la columna 'A' de una hoja 'oculta'
-> 'baja' los elementos que contiene el listbox desde 'A1' hasta 'An'
-> des-oculta + imprime + re/oculta la hoja 'oculta' :))

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en el modulo de codigo del formulario [asumiendo un commandbutton Y la hoja 'oculta' ==Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Sig As Byte
With Worksheets("Oculta")
.Columns("a").ClearContents
For Sig = 0 To ListBox1.ListCount - 1
.Range("a1").Offset(Sig) = ListBox1.List(Sig)
Next
.Visible = True
.PrintOut
.Visible = xlSheetVeryHidden
End With
End Sub

Gracias Hector, tu codigo es exelente!!!
Saludos.
Vote Hector Miguel MVP :)
"Héctor Miguel" escribió en el mensaje
news:

hola, Fabian !

> ... imprimir un listado de items... y encontre: PrintForm... pero solo

imprime los... que se ven en el UserForm

> ... codigo para imprimir un listadito de los items contenidos en un

ListBox.

mientras NO los 'bajes' en algun rango/hoja/libro... [o algo 'parecido']

creo que va a estar 'en chino' :D

suponiendo que el listbox es de solo una columna, el siguiente codigo

[asociado a algun boton en el formulario]...

-> limpia la columna 'A' de una hoja 'oculta'
-> 'baja' los elementos que contiene el listbox desde 'A1' hasta 'An'
-> des-oculta + imprime + re/oculta la hoja 'oculta' :))

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en el modulo de codigo del formulario [asumiendo un commandbutton Y la

hoja 'oculta' ==> Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Dim Sig As Byte
With Worksheets("Oculta")
.Columns("a").ClearContents
For Sig = 0 To ListBox1.ListCount - 1
.Range("a1").Offset(Sig) = ListBox1.List(Sig)
Next
.Visible = True
.PrintOut
.Visible = xlSheetVeryHidden
End With
End Sub