Проблеммы с printer.orientation

[Serrin]

Private Sub Command1_Click()
Printer.PaperSize = vbPRPSA4
Printer.Orientation = 1
Label1 = Printer.Width
End Sub

Private Sub Command2_Click()
Printer.PaperSize = vbPRPSA4
Printer.Orientation = 2
Label1 = Printer.Width
End Sub

На форме Label и 2 CommandButton.Попробуйте понажимать на кнопку 1 потом на 2.Вылезает ошибка.мсдн не помогло.Помогите,в чём ошибаюсь.

[GSerg]

У меня принтера нет.
Какая ошибка?

[Amed]

380 'Invalid property value
на

Код: Выделить всё

Printer.Orientation = 2

[Amed]

В мсдн все так же описано...

vbPRORPortrait 1 Documents are printed with the top at the narrow side of the paper.
vbPRORLandscape 2 Documents are printed with the top at the wide side of the paper.

[Serrin]

380 'Invalid property value
на

Код: Выделить всё

Printer.Orientation = 2

1 и 2 соответственно vbPRORPortrait и vbPRORLandscape.с ними та же ошибка.так вот и вопрос-почему когда меняешь ориентацию бумаги вылезает ошибка?Может неправильно обращаюсь с функцией,тогда как?