Принтер (Печатать Альбомный лист)

[Gemini]

Добрый день! Подскажите пожалуйста как заставить принтер напечатать альбомный лист???
Я делаю так:

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

With Printer
.PaintPicture pic.Picture, 0, 0
.TrackDefault = True
End With


И получаеться что изображение выводиться на вертикальном листе...
(А мне надо на горизонтальном)
Пробовал изменять свойство Orientation
VB ругаеться!

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

With Printer
.Orientation=1 '.... 2 или 3 и т.д.
.PaintPicture pic.Picture, 0, 0
.TrackDefault = True
End With


[HKEY_SUPER_MASHINE]

А нельзя ли выводить диалог параметров печати из контрола Microsoft Common Dialog Control с помощью метода ShowPrint, затем изучить выходные данные?

[Gemini]

А нельзя ли выводить диалог параметров печати из контрола Microsoft Common Dialog Control с помощью метода ShowPrint, затем изучить выходные данные?

Нет нельзя всё автоматом должно быть!
------------------

Всё я разобрался:

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

With Printer
.Orientation = 2
.PaintPicture pic.Picture, 0, 0
'.TrackDefault = True
End With


[HKEY_SUPER_MASHINE]

Нет нельзя всё автоматом должно быть!

Я в смысле "открой, изучи и используй результат обучения для своего проекта. Учекбный материал удали".

[Viper]

Пробовал изменять свойство Orientation
VB ругаеться!

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

With Printer
.Orientation=1 '.... 2 или 3 и т.д.
.PaintPicture pic.Picture, 0, 0
.TrackDefault = True
End With


Как ругается? Путь то в принципе правильный. Надо исполбзовать свойство Orientation, только вот какие для него допустимые значения?
HKEY_SUPER_MASHINE, ты абсолютно не в теме!

[Денис]

Const vbPRORPortrait = 1
Member of VBRUN.PrinterObjectConstants
Const vbPRORLandscape = 2
Member of VBRUN.PrinterObjectConstants

Таким образом, код должен выглядеть так:

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

With Printer
.Orientation = vbPRORLandscape
.PaintPicture pic.Picture, 0, 0
End With

Остерегайтесь "магических" чисел...