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

    1. 1. ¿Te resultaría interesante una carpeta sobre Python para Excel en el foro?


      • Sí! Me interesa
      • No me interesa.
      • Otros (Escribe tu respuesta en el tema)

Imprimir listbox en horizontal


Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Posted (edited)

@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 by Puche
Link to comment
Share on other sites

' 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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy