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