[kiman.ru]

Есть цветной принтер HP. В программе требуется напечатать картинку в портретной ориентации. Пытаюсь менять ориентацию так:

Код:

Printer.Orientation := poPortrait;

...но принтер все равно печатает в альбомной ориентации.

Бросил на форму PrinterSetupDialog и PrintDialog и Button1.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
PrintDialog1.Execute;
Printer.Orientation := poPortrait;
end;

PrinterSetupDialog открывается, я нажимаю кнопку Ok - он закрывается. После этого меняется ориентация печати как мне надо. Только у меня в программе нет необходимости открывать PrintDialog. Как можно сделать так, чтобы принтер сразу реагировал на Printer.Orientation?