Imprimir listbox en horizontal

[Puche]

Hola buenas tardes,

Tengo un excel con un UseForm el cual me gustaría poder imprimir en horizontal.

Tengo creado un botón de imprimir  que tiene un código sencillo que me imprime pero en posición vertical y no se visualizan todos los datos que deseo

                 Private Sub bt_imprimir_Click()

                              FrmListBoxProductos.PrintForm

                End Sub

Mi intencion inicial es poder imprimir el Useform por completo pero si no es posible me basta con poder imprimir el ListBox con las cabeceras

Espero me puedan ayudar

Saludos,

BUENO.xlsm

[Mauricio_ODN]

Hola @Puche

Algo que te puede ayudar en lo que llegan más respuestas, seria ajustar el zoom:

Private Sub bt_imprimir_Click()
    With FrmListBoxProductos
        .Zoom = 63
        .PrintForm
        .Zoom = 100
    End With
End Sub

Nos comentas, Saludos.

[Mauricio_ODN]

Hola @Puche

Te dejo otra alternativa, Nos comentas.

BUENO1.1.xlsm

[Puche]

Hace 3 horas, Mauricio_ODN dijo:

Hola @Puche

Te dejo otra alternativa, Nos comentas.

BUENO1.1.xlsm 59.7 kB · 1 descarga

Hola @Mauricio_ODN

Muchas gracias por tu pronta respuesta.

He estado revisando el archivo y no funciona del todo bien. Al darle a imprimir me saca un .pdf con 4 hojas (adjunto .pdf para que puedas revisar).

Con este método me imprimiría en impresora? porque veo que saca un pdf pero no parece que vaya a imprimir.

Saludos y gracias.

aaa.pdf

[Mauricio_ODN]

Hola @Puche

Te mando nuevamente el archivo

la linea de código que debieras cambiar es esta:

-->                .PaperSize = xlPaper11x17

Lo anterior acorde a los tamaños de papel que tengas instalados.

Nos comentas, Saludos.

PD

Si quieres seguir con tu proyecto original puedes cambiar el zoom del Userform

Hace 20 horas, Mauricio_ODN dijo:

Hola @Puche

Algo que te puede ayudar en lo que llegan más respuestas, seria ajustar el zoom:

Private Sub bt_imprimir_Click()
    With FrmListBoxProductos
        .Zoom = 63
        .PrintForm
        .Zoom = 100
    End With
End Sub

Nos comentas, Saludos.

 

BUENO1.2.xlsm

[Puche]

Hola @Mauricio_ODN 

Si he entendido bien, debo cambiar el tamaño del .xlPaper11x27 por el tamaño de mi impresión. 

En mi caso seria en Dina4 y el tamaño es de 21x29, por lo que el código quedaría así?

                    PaperSize.xlPapersize21x29

De ser así me dice: "No se puede asignar la propiedad PaperSize de la clase PageSetup" error 1004

 

[Mauricio_ODN]

Hola @Puche

Estas en lo correcto, esa es la linea que debes cambiar.

Como no se que tamaño de papel tengas habilitado en la impresora que usas, te recomiendo que, grabes una macro, selecciones el tipo de papel que se ajusta al tamaño del userform, detengas la macro y busques la linea "PaperSize", ese seria la que tendrías que sustituir en la linea que me preguntas.

Sigo atento, saludos.

 

[Puche]

Hola @Mauricio_ODN

Parece ser que ya esta solucionado  

el código PaperSize.xlPapersize21x29 siempre me daba error, y aunque hice lo de grabar una macro para ver como me salía la configuración de mi impresora, para mi sorpresa no sale ningún dato sobre eso...

La solución fue eliminar esa frase y aplicar el .zoom a 70 tal como me comentaste. De este modo se imprime la página al completo y en horizontal

Ahora solo me falta conseguir poder trabajar en un mismo Excel varios usuarios con Useforms distintos pero que todo vaya a la misma base de datos. 

Si sabes donde puedo conseguir info sobre este tema agradecería tu ayuda

Muchas gracias por la ayuda!!! Ya estoy un poco mas cerca del objetivo que busco con este Excel.