Печать из разных лотков принтера

Комментарии

• strelets

  January 2007 отредактировано 06:03

  Ну подскажите хотя бы, в какую сторону копать.
• strelets

  March 2007 отредактировано 06:03

  Если кому интересно, то решение есть.
  Дело было так. Написал в техподдержку, № 125606
  Ответили:

  написал:

  Используйте событие OnPrintPage:
  
  procedure TForm1.frxReport1PrintPage(Page: TfrxReportPage;
    CopyNo: Integer);
  begin
  Page.Bin := 1
  end;

  
  Но это не работает. В исходниках после

       if Assigned(Report.OnPrintPage) then
          Report.OnPrintPage(Page, FCopyNo);
  

  идет

       if Index = 0 then
          Bin := Page.Bin else
          Bin := Page.BinOtherPages;
  

  Соответственно меняем местами

       if Index = 0 then
          Bin := Page.Bin else
          Bin := Page.BinOtherPages;
  
        if Assigned(Report.OnPrintPage) then
        begin
          Report.OnPrintPage(Page, FCopyNo);
          Bin := Page.Bin;
        end;
  
• Pablo Рязань

  February 2009 отредактировано 06:03

  Сам не пробовал, но если задавать лоток в зависимости от значения Index?
  
  if index=0
  then Page.bin:=BIN1
  else
  case Index of
  1: Page.BinOtherPages:=BIN2;
  2: Page.BinOtherPages:=BIN3;
  3: Page.BinOtherPages:=BIN4;
  ...
  end;
  
  
• DastiX

  September 2010 отредактировано 06:03

  Возникла эта же проблема. Необходимо часть документов печатать из второго лотка формата А3 а часть из А4.
  
  Как и говорилось
  

  Используйте событие OnPrintPage:
  
  procedure TForm1.frxReport1PrintPage(Page: TfrxReportPage;
    CopyNo: Integer);
  begin
  Page.Bin := 1
  end;
  

  
  не работает.
  
  Где можно подправить то о чем говориться ниже ? или еще есть какие-то пути для решения этой проблемы?
• tstar

  September 2010 отредактировано September 2010

  DastiX написал: »

  Возникла эта же проблема. Необходимо часть документов печатать из второго лотка формата А3 а часть из А4.
  не работает.
  Где можно подправить то о чем говориться ниже ? или еще есть какие-то пути для решения этой проблемы?

  Мы когда-то решили подобную проблему генирацией отдельных отчетов для каждого лотка, и вот уже у этих отчетов указывали с какого лотка брать бумагу. Заставить разносить по лоткам в одном отчете у нас так и не получилось. Техподдержка так и не поняла, что мы от них хотим. Это было еще в 2008 году.... Самим такое решение не подуше, очень напряжное, особенно, когда это один отчет и надо все сохранить в один файл, приходится делать еще один отчет для превью и сохранения. Но работает.
• Pablo Рязань

  September 2010 отредактировано September 2010

  tstar написал: »

  Мы когда-то решили подобную проблему генирацией отдельных отчетов для каждого лотка, и вот уже у этих отчетов указывали с какого лотка брать бумагу. Заставить разносить по лоткам в одном отчете у нас так и не получилось. Техподдержка так и не поняла, что мы от них хотим. Это было еще в 2008 году.... Самим такое решение не подуше, очень напряжное, особенно, когда это один отчет и надо все сохранить в один файл, приходится делать еще один отчет для превью и сохранения. Но работает.

  1. Печатаем страницу 1 в лоток x.
  2. Печатаем страницы 2-N в лоток Y.
  
  Надо сформировать 2 отдельные команды Print(XXX).
  
  Там 2 свойства: Page.Bin и Page.BinOtherPages.