ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как подавить вызов диалога принтера
15 сообщений из 15, страница 1 из 1
Как подавить вызов диалога принтера
    #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:23:51
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #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:41:52
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #39562072
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Gallemarа окно всё равно выходит
Попробуй еще ему выставить опцию многотопочности. Не помню, как называется.
...
Рейтинг: 0 / 0
30.11.2017, 16:49:22
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #39562097
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
DarkMasterGallemar,

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

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


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

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

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

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

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

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

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

Ты решил поприкалываться над теми, кто по ночам не спит - я угадал? Все, я пошел спать...
...
Рейтинг: 0 / 0
01.12.2017, 05:55:52
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #39562314
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
чччД
Ты решил поприкалываться над теми, кто по ночам не спит - я угадал? Все, я пошел спать...
Какая ночь, обед уже скоро...
...
Рейтинг: 0 / 0
01.12.2017, 06:18:11
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #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, 06:36:24
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #39562324
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Gallemar,

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


Убери false.
...
Рейтинг: 0 / 0
01.12.2017, 07:24:14
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #39562326
Фотография Exteris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exteris
Участник
frxReport1.PrepareReport( true );
Если я тебя правильно понял.
...
Рейтинг: 0 / 0
01.12.2017, 07:27:48
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #39562337
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
Теперь все кучей документы печатает нормально, а вот по одному не хочет, делает первый документ и первый и второй.
...
Рейтинг: 0 / 0
01.12.2017, 08:26:12
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #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:34:45
| Ответить | Цитировать | Написать  
Как подавить вызов диалога принтера
    #39562344
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
Или проще на каждый документ создавать свой frxreport и после печати его освобождать?
...
Рейтинг: 0 / 0
01.12.2017, 08:42:47
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как подавить вызов диалога принтера
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=124&tid=2041495]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 73ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 208ms
total:  392ms
созд. / загр.: 392ms
x
x
Закрыть


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