powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Программа не находит принтер
4 сообщений из 4, страница 1 из 1
Программа не находит принтер
    #38788394
Здравствуйте. Ситуация следующая. Есть программа, написанная на Visual FoxPro 9, стоит на Windows 7. Установлен принтер HP LJ P1102. Из всех программ, в том числе из самого Visual FoxPro 9 принтер виден, работает нормально, даже печатает из просмотра в самом foxpro, а вот из программы принтер не виден. Печать реализована как в текстовом (dos) режиме сразу на принтер, так и печать отчётов. При использовании команд
cPrinter = SET("Printer",2)
WAIT WINDOW IIF(EMPTY(cPrinter), 'No printer chosen 2', cPrinter)

cPrinter = SET("Printer",3)
WAIT WINDOW IIF(EMPTY(cPrinter), 'No printer chosen 3', cPrinter)

**SET PRINTER TO NAME "HP LaserJet Professional P1102"
**cPrinter = GETPRINTER()
*WAIT WINDOW IIF(EMPTY(cPrinter), 'No printer chosen', cPrinter)

выдаётся сообщение 'No printer chosen' и 'Ошибка очереди печати'
Самое главное, что в апреле принтер работал нормально. Потом до октября не использовался.
Форум внимательно прочитала, многое попробовала. Ничего не помогает. Галочку в отчёта у окружения принтера ставили, убирали, не помогает. Все принтеры из системы удалили, всё вычистили (насколько это возможно). Заново принтер поставили. FoxPro переустановили. Всё без результатно.

Подскажите, пожалуйста, в чём может быть проблема и как можно её решить. Спасибо.
...
Рейтинг: 0 / 0
Программа не находит принтер
    #38788416
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Программа не находит принтер
    #38788438
PaulWist, спасибо, но результа всё ещё отрицательный. Принтер не найден. При попытке найти принтер можно искать только сетевые, а их нет. Сообщение в приложенном файле.
...
Рейтинг: 0 / 0
Программа не находит принтер
    #38788822
dimuhametov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуйте вместо SET('Printer',..) это
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
DECLARE INTEGER GetDefaultPrinter IN winspool.drv; 
    STRING  @ pszBuffer,; 
    INTEGER @ pcchBuffer 

LOCAL lcPrinter as string
lcPrinter = space(1024)

GetDefaultPrinter( @lcPrinter, len(lcPrinter) )

lcprinter = strtran( lcPrinter, chr(0),"")
? lcprinter
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Программа не находит принтер
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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