imprimir userform horizontal y error q no conozco

Hola¡¡¡
tengo este código para imprimir un userform y quiero arreglarle 2
detalles:
1. Quisiera que imprimiera con la hoja en horizontal..para aprovechar
el espacio al
máximo y ayudando un poco a los miopes, ya que saldria mas
grande.jejeje
2. Y lo que no entiendo es que despues de imprimir no puedo seleccionar


nada con el puntero del mouse, cuando hago click en la barra de
herramientas aparece algo parecido a un boton de comando pequeñito en
la punta del puntero...y si hago click en una imagen que contiene una
macroen vez de ejecutarla selecciona la imagen...como si
estuviese manteniendo pulsado la tecla Ctrl...


Algo me dice que es el DoEvents, si me ayudan a hacerlo de otra
forma.se los agradezco
mando el código que usé :


Private Sub Image2_Click()
DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
DoEvents
Workbooks.Add
ActiveSheet.PasteSpecial Format:="mapa de bits"
' imprimimos la hoja requerida '
Application.ActivePrinter = "\\ipas_linux\Piso01.ObrasyServII en Ne02:"



ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="\\ipas_linux\Piso01.ObrasyServII en Ne02:",
Collate:=True
ActiveWorkbook.Close False
Sheets("Inicio").Select
ActiveWorkbook.Save
End Sub


Como siempre...Gracias de Antemano