Saltar al contenido

Imprimir listbox en horizontal

publicado

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

Featured Replies

publicado

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

publicado
  • Autor

Hola @JSDJSD,

Adjunto imagen 

ej.thumb.JPG.56e80a2ae194466af1bc8a95e17fc34e.JPG

El que quiero poder imprimir es el contenido del Listbox1.

Saludos,

publicado

Supongo que tal cual lo tenemos en el listbox verdad ?

 

publicado
  • Autor

@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.

publicado
  • Autor

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,

publicado

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

publicado
  • Autor

@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.

publicado
' 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

publicado
  • Autor

@JSDJSD

Muchísimas gracias por todo ;)

Va todo perfecto!

Un saludo!!!

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.