34 ¿Te resultaría interesante una carpeta sobre Python para Excelen el foro?

[Puche]

Hola buenas noches,

He estado revisando antiguos post en la pagina sobre este tema pero ninguno se adapta a lo que necesito exactamente.

Necesito poder imprimir el contenido de mi Listbox en horizontal y con los encabezados. He conseguido hacerlo pero en vertical y sin encabezados.

Espero me puedan ayudar.

Un saludo,

Diseño2.xlsm

[JSDJSD]

Pon un ejemplo de lo que necesitas y desde que listbox quieres hacerlo.

[Puche]

Hola @JSDJSD,

Adjunto imagen 

El que quiero poder imprimir es el contenido del Listbox1.

Saludos,

[JSDJSD]

Supongo que tal cual lo tenemos en el listbox verdad ?

 

[Puche]

@JSDJSD

Si, correcto. 

Quiero que se imprima lo que sale el el listbox, solo eso. 

No creo que tenga que imprimir nunca mas filas que las que caben (visualmente) en el listbox.

[JSDJSD]

Mañana te subo algo

[JSDJSD]

Prueba y comenta

Diseño2.xlsm

[Puche]

Hola @JSDJSD

Hasta ahí esta perfecto pero me da la sensación de que solo crea el reporte no? Necesito que me imprima en horizontal también.

Un saludo,

[JSDJSD]

Te refieres que este mismo reporte te lo imprima en papel verdad?

[Puche]

@JSDJSD

Si correcto!

He grabado una macro para ver el proceso que debería de seguir después de tu código para imprimir, pero es mucho código de mas...

Estoy seguro de que se puede simplificar mucho.

Edited August 22 by Puche

[JSDJSD]

' Imprimir
    actPrnt = Application.ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
    ActivePrinter:="Brother MFC-L2710DW series (Copiar1)", _
    Collate:=True
    Application.ActivePrinter = actPrnt

He añadido esta parte al código, sustituye en esta línea el nombre de tu impresora

ActivePrinter:="Brother MFC-L2710DW series (Copiar1)", _

prueba y comenta.

Diseño2.xlsm

[Puche]

@JSDJSD

Muchísimas gracias por todo

Va todo perfecto!

Un saludo!!!