¿Como puedo imprimir un userform de forma horizontal?

Estoy usando el siguiente proceso para imprimir mi userform:

Private Sub btnprint_Click()
Rep_fecha.PrintForm

End Sub

Pero no puedo hacer que la impresión salga horizontal. Si alguien puede ayudarme.

1 respuesta

Respuesta
1

Al no ver el diseño de formulario no sé a que te refieres con horizontal. Supongo a que la hoja sea horizontal. Si es eso ponlo como

Forms("clientes").Printer.Orientation = acPRORLandscape
DoCmd. PrintOut

Si quisieras que te lo imprimiera en vertical cambia acPRORLandscape por

AcPRORportrait

Amigo,

Muchas gracias por su pronta respuesta, pero lo he intentado y me consigna error en Forms

he intentado poniendo varios tipos ej:

clientes.forms

clientes.printforms

poniendo y sacando comillas o paréntesis, pero sigue marcando error, esta es la rutina

Private Sub btnprint_Click()
Forms("Rep_fecha").Printer.Orientation = acPRORLandscape
DoCmd.PrintOut
End Sub

y me señala "error de compilación. "No se ha definido Sub o function."

Disculpa, pero esto me ha sacado los pocos pelos que me quedan jajaj

Gracias

Pues es así. Mira, si le pongo que me lo imprima en horizontal

Si le pongo que lo imprima en vertical

Como puedes ver la orientación de la hoja es distinta.

Lo único que se me ocurre es que sea un problema de referencias. Estas son las que tengo activadas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas