Печать пейзажем

[Гость]

Здравствуйте, господа!

Есть у меня процедурка, печатающая некие данные. Она хочет в качестве параметра HDC принтера. А я хочу, чтобы она печатала на текущем кларионовском принтере, но горизонтально (Landscape) .

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

Loc:DevMode Group(DevMode)
                     End 

      Loc:DevMode=Printer{Propprint:DevMode}
      Loc:DevMode.DmOrientation=2               
      Loc:DeviceName=Printer{PropPrint:Device}
      Loc:DC=CreateDC(0,Loc:DeviceName,0,Address(Loc:DevMode))
      PrintProc(Loc:DC,.....) 
      If DeleteDC(Loc:DC).

Переключение на текущий принтер Кларион у меня происходит, а вот изменение свойств как-то не очень. Не подскажет кто?

---------------------------------------
C уважением,
Юрий Философов,
Главный программист
Корпорация "Диполь", Саратов
E-mail yufil@tacis-dipol.ru (служ)
yufil@mail.ru (дом)
ICQ#75924439
Написал: ClaList(2)