Imprimir datos de un listbox..!

[riverts]

Hola equipo de "Ayuda Excel" un buen dia a todos, mi problema es este quiero saber como puedo imprimir un listbox despues de aver cargado los datos. Gracias de Antemano..!

imprimir listbox.rar

[Gerson Pineda]

Hola equipo de "Ayuda Excel" un buen dia a todos, mi problema es este quiero saber como puedo imprimir un listbox despues de aver cargado los datos. Gracias de Antemano..!

Hola

Asumiendo que el rango "programa" es lo que cargas en el listbox, prueba con esto

Application.Goto Reference:="Programa"

Selection.PrintOut Copies:=1[/CODE]

Saludos

[riverts]

Si esta Bien el dato pero Puedo hacer digamos desde el listbox tomando en cuenta que la hoja de impresion estara oculta... Gracias...!

[Gerson Pineda]

Si esta Bien el dato pero Puedo hacer digamos desde el listbox tomando en cuenta que la hoja de impresion estara oculta... Gracias...!

Hola

Prueba con:

Private Sub CommandButton2_Click()

With Application

.ScreenUpdating = False

With Hoja10 'es lo mismo que sheets("Dato4")

.Visible = xlSheetVisible

    Application.Goto Reference:="Programa"

    Selection.PrintOut Copies:=1

.Visible = xlSheetHidden

.ScreenUpdating = True

End With

End With

End Sub[/CODE]

Salud0s

[riverts]

tu dato me sale Error .ScreenUpdating = True

lo que yo queria era saber si podia imprimir el listbox de todas maneras muchas gracias por la ayuda..!

Saludos

[riverts]

With Application

.ScreenUpdating = False

With Hoja10 'es lo mismo que sheets("Dato4")

.Visible = xlSheetVisible

Application.Goto Reference:="Programa"

Selection.PrintOut Copies:=1

.Visible = xlSheetHidden

End With

End With

End If

[tan178]

Microsoft OneDrive - Access files anywhere. Create docs with free Office Online.

Revise tu archivo y lo modifique ,ajusta los margenes y listo para imprimir

[Gerson Pineda]

tu dato me sale Error .ScreenUpdating = True

lo que yo queria era saber si podia imprimir el listbox de todas maneras muchas gracias por la ayuda..!

Saludos

Hola

Disculpas y tienes razon, hay un error, prueba de nuevo

Private Sub CommandButton2_Click()

With Application

.ScreenUpdating = False

With Hoja10 'es lo mismo que sheets("Dato4")

.Visible = xlSheetVisible

    Application.Goto Reference:="Programa"

    Selection.PrintOut Copies:=1

.Visible = xlSheetHidden

End With

.ScreenUpdating = True

End With

End Sub[/CODE]

Saludos