Как исправить ошибку printing in progress в Delphi?

Question

[animr]

Хочу поменять ориентацию печатающего листа, но программа выдает следующую ошибку printing in progress в этой строке Printer.Orientation := poLandscape; помогите решить вопрос ... Спасибо.

Comments

[animr]

Все нашел спасибо )))

[Евгений Колегов]

Напишите ответ сами, может кому то пригодится

[animr]

animr @animr
Конечно напишу:

// Ориентация бумаги в принтере (Ландшафтный).
//Ее всегда надо задавать до начала прорисовки
//документа иначе выйдет ошибка printing in progress
Printer.Orientation := poLandscape;

// Начало прорисовки печати документа
Printer.BeginDoc;

// Текст вывода на печать, где 25, 865 - Координаты X и Y
Printer.Canvas.TextOut(25,865,'Текст вывода');

// Конец прорисовки документа
Printer.EndDoc;

[Mercury13]

Напиши это же как ответ и отметь, что правильный.