Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как подавить вызов диалога принтера / 15 сообщений из 15, страница 1 из 1
30.11.2017, 16:23:51
    #39562051
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Добрый день
Не могу подавить вызов диалога принтера при печати формы FR 4.
В коде:
Код: pascal
1.
2.
3.
4.
frxReport1.PrepareReport;
frxReport1.PrintOptions.ShowDialog :=False;
frxReport1.PrintOptions.Printer:= 'PDFCreator';
frxReport1.Print;



а окно всё равно выходит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2017, 16:41:52
    #39562067
DarkMaster
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Gallemar,

Так пробовал?

Код: pascal
1.
2.
3.
4.
Report.LoadFromFile('filename');
Report.PrepareReport;
Report.PrintOptions.ShowDialog := False;             // после загрузки !!!
Report.Print;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2017, 16:49:22
    #39562072
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Gallemarа окно всё равно выходит
Попробуй еще ему выставить опцию многотопочности. Не помню, как называется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2017, 17:14:37
    #39562097
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
DarkMasterGallemar,

Так пробовал?

Код: pascal
1.
2.
3.
4.
Report.LoadFromFile('filename');
Report.PrepareReport;
Report.PrintOptions.ShowDialog := False;             // после загрузки !!!
Report.Print;


Завтра попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 04:23:14
    #39562297
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Спасибо, помогло. А как сделать сброс предыдущих форм? У меня первый раз печатает нормально, потом печатает новую + предыдущие. Делаю clear - не помогает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 04:56:56
    #39562305
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
GallemarСпасибо, помогло. А как сделать сброс предыдущих форм? У меня первый раз печатает нормально, потом печатает новую + предыдущие. Делаю clear - не помогает

https://www.fast-report.com/documentation/ProgMan-ru/index.html?27.htm

Ну прочти же ты этот несчастный мануал, не мучайся...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 05:46:48
    #39562312
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
чччДGallemarСпасибо, помогло. А как сделать сброс предыдущих форм? У меня первый раз печатает нормально, потом печатает новую + предыдущие. Делаю clear - не помогает

https://www.fast-report.com/documentation/ProgMan-ru/index.html?27.htm

Ну прочти же ты этот несчастный мануал, не мучайся...
так если у меня Prepare по умолчанию стоит, то и не должен предыдущий добавляться. Или я не прав?
Пробовал уже два варианта, всё равно при втором проходе печатает предыдущие
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 05:55:52
    #39562313
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Gallemar,

ну какое еще "препаре". Я ведь ссылку для ответа на твой вопрос дал "первый раз печатает нормально, потом печатает новую + предыдущие".

Там "про это" аж дважды сказано. И текста там даже на десяток фраз не набирается, не заметить было невозможно.

Ты решил поприкалываться над теми, кто по ночам не спит - я угадал? Все, я пошел спать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 06:18:11
    #39562314
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
чччД
Ты решил поприкалываться над теми, кто по ночам не спит - я угадал? Все, я пошел спать...
Какая ночь, обед уже скоро...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 06:36:24
    #39562318
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Мне надо каждый печатать отдельно, тут вопрос времени - чтобы документ импортировался и вышел на печать, потом следующий.
А у меня хоть как - или по одному выдают на печать:
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
memo1.Lines.add(datetimetostr(now) + ' печать');
frxreport1.LoadFromFile('d:\!priemka\act_priema.fr3');
frxreport1.AddFunction('function MoneyToStr(Val: Double; UseKop: Boolean): string', 'Дополнительно',
 'Переводит вещественное число в текстовое представление денежной величины (1.20 = один руб. 20 коп.)');
frxReport1.Variables.Clear;
frxReport1.Variables['v_session']:= session;
frxReport1.Variables['v_ownerclient']:= 8765;
frxReport1.PrepareReport(false);
frxReport1.PrintOptions.Printer:= 'PDFCreator';
frxReport1.PrintOptions.ShowDialog :=False;
frxReport1.Print;
stop_time := now;
///////////////////////////
///фиксируем запись в логе                   									
until FindNext(tsr) <> 0;



что по несколько:

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
memo1.Lines.add(datetimetostr(now) + ' печать');
frxreport1.LoadFromFile('d:\!priemka\act_priema.fr3');
frxreport1.AddFunction('function MoneyToStr(Val: Double; UseKop: Boolean): string', 'Дополнительно',
 'Переводит вещественное число в текстовое представление денежной величины (1.20 = один руб. 20 коп.)');
frxReport1.Variables.Clear;
frxReport1.Variables['v_session']:= session;
frxReport1.Variables['v_ownerclient']:= 8765;
frxReport1.PrepareReport(false);
frxReport1.PrintOptions.Printer:= 'PDFCreator';
frxReport1.PrintOptions.ShowDialog :=False;
stop_time := now;
///////////////////////////
///фиксируем запись в логе                   									
until FindNext(tsr) <> 0;
frxReport1.Print;



всегда первая форма будет в отчете, разница только в том, что вместо двух очередей печати будет одна.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 07:24:14
    #39562324
чччД
чччД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Gallemar,

Код: pascal
1.
frxReport1.PrepareReport(false);


Убери false.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 07:27:48
    #39562326
Exteris
Exteris
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
frxReport1.PrepareReport( true );
Если я тебя правильно понял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 08:26:12
    #39562337
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Теперь все кучей документы печатает нормально, а вот по одному не хочет, делает первый документ и первый и второй.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 08:34:45
    #39562339
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
  if FindFirst(path + '*.xls',faAnyFile,tsr) = 0 then
repeat
    if (tsr.attr and faDirectory) = faDirectory  then Continue;
           /////////////////////////////////
          делаем разные разности пока в каталоге есть файлы
        ///////////////////////
      memo1.Lines.add(datetimetostr(now) + ' печать');
        frxreport1.LoadFromFile('d:\!priemka\act_priema.fr3');
         frxreport1.AddFunction('function MoneyToStr(Val: Double; UseKop: Boolean): string', 'Дополнительно',
 'Переводит вещественное число в текстовое представление денежной величины (1.20 = один руб. 20 коп.)');
 frxReport1.Variables.Clear;
          frxReport1.Variables['v_session']:= session;
          frxReport1.Variables['v_ownerclient']:= 8765;
          stop_time := now;
        ///////////////////////////
        ///фиксируем запись в логе
                    									
          until FindNext(tsr) <> 0;
		  
        frxReport1.PrepareReport(true);
        frxReport1.PrintOptions.Printer:= 'PDFCreator';
        frxReport1.PrintOptions.ShowDialog :=False;
          frxReport1.Print;
     end
     else

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.12.2017, 08:42:47
    #39562344
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подавить вызов диалога принтера
Или проще на каждый документ создавать свой frxreport и после печати его освобождать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как подавить вызов диалога принтера / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 477ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2041495]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 204ms
total:  477ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]