Проблемы с печатью

[Haladdin]

Пожалуйста помогите, я уже все волосы на всех местах вырвал, но это не помогло.
В общем, проблема достаточно банальна, мне нужно распечатать документ из RichViewEdit. Вернее два документа, один - с книжной ориентацией страницы, другой - с альбомной.

сейчас код такой:

if PrintDialog1.Execute then
  begin
    if PageControl1.ActivePage.PageIndex = 0 then
      Begin

        RVPrint1.AssignSource(RichViewEdit1);
        RVPrint1.FormatPages(rvdoALL);
        RVPrint1.Print('',PrintDialog1.Copies,false);
        RVPrint1.Clear;
      end;

    if PageControl1.ActivePage.PageIndex = 1 then
      begin
        RVPrint1.AssignSource(RichViewEdit2);
        RVPrint1.FormatPages(rvdoALL);
        RVPrint1.Print('',PrintDialog1.Copies,false);
        RVPrint1.Clear;
      end;
  end;

Камнями не бейте, делайте скидку на то что я неуч. Так вот, на форме есть PageControl с двумя закладками. На одной - RichViewEdit1, на другой - RichViewEdit2. Соответственно при нажатии кнопки ПЕЧАТЬ!!! проверяется какая закладка активна, и печатается соответствующий компонент.
Проблема в том что я не знаю как сменить ориентацию листа. =( пожалуйста не посылайте в Гугль, я его уже видеть не могу.
На сайте поддержки по RichView есть пример кода:

Printer.BeginDoc; 

// printing RichView1 in portrait orientation
Printer.Orientation := poPortrait;
RVPrint.AssignSource(RichView1); 
RVPrint.FormatPages(rvdoALL); 
RVPrint.ContinuousPrint; 

// printing RichView2 in landscape orientation
Printer.NewPage;
Printer.Orientation := poLandscape;
RVPrint.AssignSource(RichView2); 
RVPrint.FormatPages(rvdoALL); 
RVPrint.ContinuousPrint; 
Printer.EndDoc;

Я его "творчески переосмыслял" раз нцать. И, что характерно, ничерта не вышло. Каждый раз пишет Project raised exception class EPrinter with message 'Printing in progress'. Process stopped.

Вот одна из последних попыток после которой у меня лапы опустились совсем.

        Printer.BeginDoc;
        Printer.Orientation := poLandscape;
        RVPrint1.AssignSource(RichViewEdit2);
        RVPrint1.FormatPages(rvdoALL);
        RVPrint1.ContinuousPrint;
        Printer.EndDoc;

Самое интересное что если закавычить команду принтер.ориентешн - все, *матное слово* работает! Все печатает только вот ориентация страницы, соответственно, стандартная портретаня. =(((

        Printer.BeginDoc;
        {Printer.Orientation := poLandscape;}
        RVPrint1.AssignSource(RichViewEdit2);
        RVPrint1.FormatPages(rvdoALL);
        RVPrint1.ContinuousPrint;
        Printer.EndDoc;

Помогите!

[Haladdin]

Пардон, кажется, проблема решена.
Я уж даже сказать боюс точно, дабы не сглазить =((

[mihali4]

Каждый раз пишет Project raised exception class EPrinter with message 'Printing in progress'. Process stopped.

И правильно пишет...
Сначала устанавливаем ориентацию, а уж потом посылаем задание принтеру.
А вы наоборот делаете...

[Haladdin]

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

И правильно пишет...
Сначала устанавливаем ориентацию, а уж потом посылаем задание принтеру.
А вы наоборот делаете...

Именно. А на сайте подержки написано вот это

Example 2: How to mix portrait and landscape orientations in one printing job

In this example, the same RVPrint is used to print RichView1 and RichView2 in different orientations.

Printer.BeginDoc; 
// printing RichView1 in portrait orientation
Printer.Orientation := poPortrait;
RVPrint.AssignSource(RichView1); 
RVPrint.FormatPages(rvdoALL); 
RVPrint.ContinuousPrint; 

// printing RichView2 in landscape orientation
Printer.NewPage;
Printer.Orientation := poLandscape;
RVPrint.AssignSource(RichView2); 
RVPrint.FormatPages(rvdoALL); 
RVPrint.ContinuousPrint;
Printer.EndDoc;