Вопрос по TFrxPrinter: проблемы с настройкой

alexghaash

Вопрос: Как программно установить свойства принтера, отличные от передаваемых в процедуре

TfrxPrinter.SetViewParams(APaperSize: Integer;
APaperWidth, APaperHeight: Extended; AOrientation: TPrinterOrientation);

Мне нужно установить все параметры содержащиеся в структуре TDeviceMode( они передаются в модуль печати из основной программы)
В Fr2.x я работал с TPrinter.
var
PrintHandle: THandle;
DM: ^TDeviceMode;

Printer.GetPrinter(PChar(p1), PChar(p2), PChar(p3), PrintHandle);

DM := GlobalLock(PrintHandle)

DM.xxx:=xxx
…
DM.xxx:=xxx


GlobalUnlock(PrintHandle);
Все прекрасно работало.

Теперь работа с TPrinter результата не дает никакого, работа же c TFrxPrinter.Handle вместо PrintHandle вызывает ошибку.