[lostbananan]

Доброе утро! Мне из программы надо вывести "документ" на принтер...
В документе есть конечно же текст (синий цвет шрифта на белом фоне) и несколько прямоугольников (залитых серым цветом). ну и мне надо изначально (без диалога) установить ориентацию бумаги в принтер (все время забываю какая есть какая - мне нужна ориентация - горизонтальная - т.е. лист бумаги шире чем выше)...
По поводу залитых прямоугольников ничего сложного:

Код:

/       Canvas.Brush.Color := clGray;
       Canvas.Brush.Style := bsSolid;

А вот как установить ориентацию бумаги?

[NumLock]

Код:

TPrinter
property Orientation: TPrinterOrientation read GetOrientation write SetOrientation;

[lostbananan]

В общем понял, но как вызвать SetOrientation (в хелпе - не нашел)...

[lostbananan]

Orientation := poPortrait;
вызывает исключение

[NumLock]

Код:

uses
  Printers,
...
  Printer.Orientation:=poLandscape;

[M.A.D.M.A.N.]

Сообщение от NumLock

Код:

uses
  Printers,
...
  Printer.Orientation:=poLandscape;

У него походу объект не создан.

[NumLock]

там:

Код:

unit Printers;
...
function Printer: TPrinter;
begin
  if FPrinter = nil then FPrinter := TPrinter.Create;
  Result := FPrinter;
end;

а что будет без установленного принтера мне лень проверять)