Visual Basic - Problema con impresión

Hola a todos.
Tengo un equipo (PC) donde hay varias impresoras instaladas.
En VB, creo un proyecto nuevo, y en el form coloco dos controles: 1 CommandButton y 1 CommonDialog; el siguiente es todo el código del proyecto:

---------------------------------------------------------------------
Option Explicit

Private Sub Command_Click()

CommonDialog.PrinterDefault = True
CommonDialog.CancelError = True
CommonDialog.ShowPrinter

Printer.Print "prueba"
Printer.EndDoc

End Sub
---------------------------------------------------------------------

Esto hace que antes de imprimir "prueba", se presente al usuario el cuadro de diálogo, para que seleccione que impresora desea usar.
Funciona Ok.

EL PROBLEMA es que si agrego una línea para elegir la orientación del papel:

---------------------------------------------------------------------
Option Explicit

Private Sub Command_Click()

CommonDialog.PrinterDefault = True
CommonDialog.CancelError = True
CommonDialog.ShowPrinter

Printer.Orientation = vbPRORPortrait '******** <-- esta es la linea que agrego

Printer.Print "prueba"
Printer.EndDoc

End Sub
---------------------------------------------------------------------

Pasa lo siguiente:
La primera vez que que se hace click en el botón se imprime en la impresora seleccionada, pero en los sucesivos "clicks" (sin haber salido de la aplicación), no toma la seleccion del usuario; sigue imprimiendo en la primera elección que el usuario había hecho.

Alguien sabe por qué?
El "lío" lo arma "Printer.Orientation..." pero no tengo idea por qué ...

Muchas gracias.