Есть цветной принтер HP. В программе требуется напечатать картинку в портретной ориентации. Пытаюсь менять ориентацию так:
Код:
Printer.Orientation := poPortrait;
...но принтер все равно печатает в альбомной ориентации.
Бросил на форму PrinterSetupDialog и PrintDialog и Button1.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
PrintDialog1.Execute;
Printer.Orientation := poPortrait;
end;
PrinterSetupDialog открывается, я нажимаю кнопку Ok - он закрывается. После этого меняется ориентация печати как мне надо. Только у меня в программе нет необходимости открывать PrintDialog. Как можно сделать так, чтобы принтер сразу реагировал на Printer.Orientation?