ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / В среде RemoteDesktop не открывается окно выбора принтера в FastReport
24 сообщений из 24, страница 1 из 1
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39541349
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
Никто не сталкивался?

Имеется приложение - печатает отчеты из базы на FastReport 5.
На локальном компьютере - отчет открывается в Preview, нажимаю на иконку принтера, могу выбрать принтер из списка.

В случае запуска программы через RemoteDesktop connection - вижу Preview, но после попытки нажать на иконку принтера вылетает ошибка:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
---------------------------
MyExeProg
---------------------------
Access violation at address 01000109 in module 'MyExeProg.exe'. Execution of address 01000109.
---------------------------
OK   
---------------------------


Не дает открыть окно выбора принтеров.
...
Рейтинг: 0 / 0
24.10.2017, 22:41:57
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39541417
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kealon(Ruslan)
Участник
Alexander2,

принтеры в системе есть? дефолтный выбран?
...
Рейтинг: 0 / 0
25.10.2017, 07:58:08
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39541585
qwertEHOK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwertEHOK
Гость
принтер случайно не Canon? было что FR не открывал Preview если был установлен кэнон как основной принтер
...
Рейтинг: 0 / 0
25.10.2017, 12:10:08
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39541818
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
Alexander2,

у меня давно была подобная проблема, когда фирма перешла на Windows Terminal Server'ы (кто не знает, это когда работаешь в Windows по RDP и каждый пользователь получает свой виртуальный рабочий стол)

Решилась патчем исходников FastReports 7129178
даже на их форуме тогда запостил ссылка
...
Рейтинг: 0 / 0
25.10.2017, 15:03:04
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39541824
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
P.S.
там, правда, нормальный Exception вылетал, а не Access Violation, но и версия FastReports тогда была 4-ая
...
Рейтинг: 0 / 0
25.10.2017, 15:07:23
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39541838
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
P.P.S.
вспомнил, были еще какие-то проблемы с выбором принтера
решились вызовом frxPrinters.FillPrinters() перед каждым формированием отчета
...
Рейтинг: 0 / 0
25.10.2017, 15:23:32
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542008
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
Спасибо откликнувшимся.
Да, версия 5ка, забыл упомянуть.
Буду терзать хозяев, пусть проапдейтят версию.
Попробую frxPrinters.FillPrinters().
Еще как идея, может быть, бред: на том RDP сервере проинсталлировать сам FastReport, чтоб в ядре системы прописался.
...
Рейтинг: 0 / 0
25.10.2017, 19:26:49
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542010
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Alexander2...проинсталлировать сам FastReport, чтоб в ядре системы прописался.
Чтобы что?
...
Рейтинг: 0 / 0
25.10.2017, 19:28:51
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542093
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
чччД,
ну когда инсталлируется FastReport - он "куда-то" прописывается - я на диске не нашел, чесс грю, то что на картинке, он в регистр пишет.... \Software\Fast Reports
вот и подумалось, если его просто инсталлировать там на RDP сервере, как грится, чтоб "БУЛО".
И нефиг ухмыляться, сами разработчики FR ничего не отвечают и не предлагают - придется методом тыка.
...
Рейтинг: 0 / 0
26.10.2017, 00:14:00
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542099
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Alexander2,

Ну ты хотя бы такой код попробуй:

Код: pascal
1.
2.
3.
  if Printer.Printers.Count < 1 then begin
    MessageBox(Handle, 'На Вашем компьютере не установлено ни одного принтера! Установите принтер!',
               PChar(Application.Title), MB_OK or MB_ICONERROR or MB_TOPMOST);
...
Рейтинг: 0 / 0
26.10.2017, 00:54:28
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542101
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Alexander2чччД,
ну когда инсталлируется FastReport - он "куда-то" прописывается - я на диске не нашел, чесс грю, то что на картинке, он в регистр пишет.... \Software\Fast Reports
вот и подумалось, если его просто инсталлировать там на RDP сервере, как грится, чтоб "БУЛО".
И нефиг ухмыляться, сами разработчики FR ничего не отвечают и не предлагают - придется методом тыка.

Никуда он не "прописывается", эта библиотека внедряется в delphi - программу, и все, никаких чудес.
...
Рейтинг: 0 / 0
26.10.2017, 00:56:24
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542112
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
чччД,

Спасибо!

Но получается, что если на RDP сервере не инсталлирован НИ ОДИН принтер(а это, скорее всего, так), то никакие танцы с бубном не помогут.
Пока внедрил в код проги frxPDFExport, заставляю юзеров вместо Print - нажимать на иконку PDF и сохранять в соответствующем формате.
...
Рейтинг: 0 / 0
26.10.2017, 03:49:09
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542129
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Alexander2,
ну ты просто дизейбли возможность печати, если принтеров нет, и все. Фастрепорт имеет такое свойство.
...
Рейтинг: 0 / 0
26.10.2017, 07:58:41
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542860
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
чччД,

навесил на нажатие кнопки "Printer" этот код:
Код: pascal
1.
2.
3.
if Printer.Printers.Count < 1 then begin
    MessageBox(Handle, 'На Вашем компьютере не установлено ни одного принтера! Установите принтер!',
               PChar(Application.Title), MB_OK or MB_ICONERROR or MB_TOPMOST);



все равно вылетает такая ошибка.
...
Рейтинг: 0 / 0
26.10.2017, 21:07:00
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542863
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
точнее повесил код на OnPrintPage компонента frxReport.
Не в курсе как проверить или вписать этот код на событие нажатия на одну из кнопок.
...
Рейтинг: 0 / 0
26.10.2017, 21:12:57
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542873
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
Зачем так сложно?
Разве не достаточно перед
frxReport.ShowReport
или frxReport.Prepare
определиться с принтерами и настроить всё?
...
Рейтинг: 0 / 0
26.10.2017, 21:54:51
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542878
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
Кроик Семён,

не понимаю, как использовать Ваш

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TfrxPrinter.UpdateDeviceCaps;
begin
  if FDC=0 then RecreateDC(); //Simon Kroik (kroiksm@gmx.de) 27.04.2009

  FDPI := Point(GetDeviceCaps(FDC, LOGPIXELSX), GetDeviceCaps(FDC, LOGPIXELSY));

  if (FDPI.X = 0) or (FDPI.Y = 0) then
    raise Exception.Create('Printer selected is not valid');
end;



У меня на форме лежит компонент frxReport, сделал вызов Preview:
...
Код: pascal
1.
      frxReportSummary.ShowReport;



получаю Preview отчета, нажимаю на иконку принтера получаю ошибку.
Нет у меня такого компонента frxPrinter.
...
Рейтинг: 0 / 0
26.10.2017, 22:13:01
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542882
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
саппорт FR ответил:
авторTry to install at least one printer on the your RDP server.
В том то и дело, что принтеры там уже давно установлены.
...
Рейтинг: 0 / 0
26.10.2017, 22:28:01
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542886
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
а саппорт RDP сервера ответил вот что насмотря на то, что там установлены принтеры:
автор...however the default printer is mapped through the RDP Client to the users computers default printer
Что надо сделать в коде проги, чтоб она искала принтеры на компьютере клиента, вызвавшего RDP программу.

Я так понимаю, это сделано для того чтоб невозможно было запустить на принтер RDP сервера задачу печати, ибо не имеет смысла, так как печать нужна на девайсе клиента.
...
Рейтинг: 0 / 0
26.10.2017, 22:33:20
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542892
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Alexander2чччД,

навесил на нажатие кнопки "Printer" этот код:
Код: pascal
1.
2.
3.
if Printer.Printers.Count < 1 then begin
    MessageBox(Handle, 'На Вашем компьютере не установлено ни одного принтера! Установите принтер!',
               PChar(Application.Title), MB_OK or MB_ICONERROR or MB_TOPMOST);



все равно вылетает такая ошибка.
Извини, у меня нет FR5, пользуюсь FR4.
Так вот, у компонента TfrxReport (из FR4) есть свойство PreviewOptions, а в нем - Buttons.
Просто в случае отсутствия принтера отключай кнопку печати, и все.
Код: pascal
1.
2.
  frxReport1.PreviewOptions.Buttons :=
    frxReport1.PreviewOptions.Buttons - [pbPrint];


Возможно, в FR5 код быть чуть иным, ты уж там сам разберись.
...
Рейтинг: 0 / 0
26.10.2017, 22:43:31
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542900
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
чччД,
хорошо, волшебную кнопку Printer скрываю, но это не решает проблемы "а как печатать это добро?"
...
Рейтинг: 0 / 0
26.10.2017, 23:13:28
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542902
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Alexander2чччД,
хорошо, волшебную кнопку Printer скрываю, но это не решает проблемы "а как печатать это добро?"
Проблема админа, не прикладного программиста.
...
Рейтинг: 0 / 0
26.10.2017, 23:20:31
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39542921
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
Alexander2Кроик Семён,
Нет у меня такого компонента frxPrinter.

это класс в исходниках FastReports. В каком юните по памяти не скажу
...
Рейтинг: 0 / 0
27.10.2017, 00:13:41
| Ответить | Цитировать | Написать  
В среде RemoteDesktop не открывается окно выбора принтера в FastReport
    #39544905
Alexander2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander2
Участник
Саппорт от Fast-Report посоветовал установить FastReport 5.6 - спасибо!

После полного вычищения старой версии с компа и переустановки новой версии - exe-ник работает на RDP без сбоев - окно выбора принтера открывается при нажатии на иконку Принтер.

Тема закрыта.
...
Рейтинг: 0 / 0
30.10.2017, 22:01:48
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / В среде RemoteDesktop не открывается окно выбора принтера в FastReport
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=128&tid=2041661]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 259ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 216ms
total:  565ms
созд. / загр.: 565ms
x
x
Закрыть


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