Access - cambiar orientación de la impresora

   
Vista:
Imágen de perfil de Enrique Ramírez

cambiar orientación de la impresora

Publicado por Enrique Ramírez josenramroc@hotmail.com (629 intervenciones) el 24/05/2017 03:47:39
Tengo en ejecución un formulario con el cual los usuarios hacen diversas consultas y el usuario puede imprimir el formulario con la información que este consultando, esto lo hago con DoCmd.PrintOut acSelection y me envía a la impresora el formulario con la información que requiere el usuario, mi problema es que por el tamaño del formulario sale en dos hojas, esto implica que el usuario tiene que ir a cambiar manualmente la orientación a horizontal regrese al formulario imprima y vuelva a cambiar la orientación.
Hay alguna forma de configurar por medio de código vbAccess la orientación ?
Por favor no me digan que haga un informe.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Pancho

cambiar orientación de la impresora

Publicado por Pancho (82 intervenciones) el 24/05/2017 04:26:42
Tienes que usar el objeto printer

En el evento al cargar del informe

1
2
3
4
5
6
7
8
9
10
Private Sub Report_Load()
 
    Dim p As Printer
 
    Set p = Me.Printer
 
    p.Orientation = acPRORLandscape
 
 
End Sub


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Enrique

cambiar orientación de la impresora

Publicado por Enrique (629 intervenciones) el 24/05/2017 16:19:40
Pacho muchas gracias por la ayuda quedo de perlas, supongo que para restablecer a vertical será:

Set p = Me.Printer
p.Orientation = acPRORPortrait
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Pancho

cambiar orientación de la impresora

Publicado por Pancho (82 intervenciones) el 24/05/2017 23:11:39
Si, es correcto lo que indicas

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad