Тормозит печать...

[фЁдОр]

Приветствую!
на принтере стоит двусторонняя печать. я сделал прогу для печати отчетов, но она блин долго печатает, там как-то вроде через дуплекс проходит и скорсть существенно замедляется, а используя другую прогу(не мною) разработана, то она видимо как-то минует этот дуплекс и скорость печати больше, чем от моей программы. если я в ручную отключаю двустороннию печать, то по скорости получается одинаково. надо как-то программно миновать этот дуплекс. вот этим я кодом печатаю:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 i, j, nomer: integer;
begin
 j:=StrToInt(Edit2.Text);
 nomer:=StrToInt(Edit1.Text);
 ReportQ.QRLabel67.Caption:=DateToStr(form1.DateTimePicker1.Date);
 ReportQ.QRLabel66.Caption:=DateToStr(form1.DateTimePicker1.Date);
 ReportQ.QRLabel65.Caption:=Edit3.Text;
 if PrintDialog1.Execute then
 begin
  for i:=StrToInt(Edit1.Text) to j do
  begin
   ReportQ.QRLabel69.Caption:=IntToStr(nomer);
   ReportQ.QRLabel68.Caption:=DateToStr(form1.DateTimePicker1.Date+StrToInt(Edit3.Text));
   ReportQ.QRLabel70.Caption:=IntToStr(nomer);
   nomer:=i+1;
   ReportQ.QuickRep1.Print;
  end;
 end;
end;

и по ходу еще вопрос - окошко печати каждый раз появляется. можно ли это избежать не используя цикл for? там просто печатается номер документ с указанного периода с едит1 по едит2, поэтому использую цикл for, но думаю должно быть более грамотное решение.

[Волк]

Помочь не знаю как но у меня наподобие ошибка выскакивала когда я через диалог пытался распечатать текст из memo.Если знаешь как это сделать подскажи пожалуйста.

[mihali4]

При чем тут "БД в Delphi" ?
Переношу в общие вопросы...

[фЁдОр]

не, оно работает нормально. если печатать с 1 по 10 документ, то медленно, но терпимо, а вот если указать с 1 по 200, т.е. что б распечатать 200 документов, то он эти двести 200 документов будет печатать около часа. да забыл указать-принтер НР 4050

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

При чем тут "БД в Delphi" ?
Переношу в общие вопросы...

mihali4-извеняюсь, но печатаю с БД.

[KORN]

http://forum.chertenok.ru/Skomandova...a_pechat-t4898

может это поможет

[фЁдОр]

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

http://forum.chertenok.ru/Skomandova...a_pechat-t4898

может это поможет

спасибо. попробую разобраться