Algun codigo para imprimir

Saludos.

Estoy queriendo hacer codigo OOmacro para imprimir cuadros pero unos son con pagina carta vertical y otros con pagina horizontal, siempre carta

Ahora lo que yo quisiera que me ayudaran es a obtener el codigo que permita comprobar si la pagina esta en vertical y si es asi pasarla a horizontal (landscape)  o de otro modo, comprobar si esta en horizontal y si es asi pasarla a vertical.

Solo necesito imprimir la hoja1 ya que tengo el codigo llena el cuadro y lo pasa a la posicion de hoja1

Gracias de antemano por el apoyo