ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Current Printer
9 сообщений из 9, страница 1 из 1
Current Printer
    #33173450
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Как получить текущий принтер в версии PB7.0 (функция "PrintGetPrinter" отсутствует)?
PB7.0
XP
...
Рейтинг: 0 / 0
19.07.2005, 13:46:57
| Ответить | Цитировать | Написать  
Current Printer
    #33173606
alexis glinski
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alexis glinski
Участник
самое простое:
Код: plaintext
1.
ls_Key = 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows'
ll_Rtn = RegistryGet( ls_Key, 'Device', RegString!, ls_Value )
...
Рейтинг: 0 / 0
19.07.2005, 14:25:07
| Ответить | Цитировать | Написать  
Current Printer
    #33173663
Фотография ЗоринАндрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЗоринАндрей
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Choose Case lenv_environment.OsType
	Case Windows!
		RegistryGet ('HKEY_LOCAL_MACHINE\Config\0001\System\CurrentControlSet\Control\Print\Printers', 'default', ls_printer) 
	Case WindowsNT!
		RegistryGet ('HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows', 'Device', ls_printer) 
End Choose
...
Рейтинг: 0 / 0
19.07.2005, 14:38:03
| Ответить | Цитировать | Написать  
Current Printer
    #33173685
Фотография ЗоринАндрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЗоринАндрей
Участник
или так

FUNCTION boolean GetDefaultPrinterA( REF string sPrinter, REF ulong
dwBuffer ) LIBRARY "kernel32.dll"

buffer = 260
s_printer = Space( buffer )
GetDefaultPrinter( s_printer, buffer )
...
Рейтинг: 0 / 0
19.07.2005, 14:41:49
| Ответить | Цитировать | Написать  
Current Printer
    #33173689
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
alexis glinskiсамое простое:
Код: plaintext
1.
ls_Key = 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows'
ll_Rtn = RegistryGet( ls_Key, 'Device', RegString!, ls_Value )

Thanx!
...
Рейтинг: 0 / 0
19.07.2005, 14:44:11
| Ответить | Цитировать | Написать  
Current Printer
    #33173702
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
ЗоринАндрейили так

FUNCTION boolean GetDefaultPrinterA( REF string sPrinter, REF ulong
dwBuffer ) LIBRARY "kernel32.dll"

buffer = 260
s_printer = Space( buffer )
GetDefaultPrinter( s_printer, buffer )
Тоже спасибо! :)
...
Рейтинг: 0 / 0
19.07.2005, 14:46:15
| Ответить | Цитировать | Написать  
Current Printer
    #33173709
Фотография ЗоринАндрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЗоринАндрей
Участник
еще в winspool.drv что-то было на эту тему.
обсуждали тут весной вроде.
...
Рейтинг: 0 / 0
19.07.2005, 14:48:31
| Ответить | Цитировать | Написать  
Current Printer
    #33174492
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
ЗоринАндрейеще в winspool.drv что-то было на эту тему.
обсуждали тут весной вроде.
Tak i est'. A v kernel32.dll y menya ne rabotaet.
Код: plaintext
1.
FUNCTION long SetDefaultPrinter( string pszPrinter ) library "winspool.drv" alias for "SetDefaultPrinterA"
FUNCTION boolean GetDefaultPrinter( REF string sPrinter, REF ulong dwBuffer ) LIBRARY "winspool.drv" alias for "GetDefaultPrinterA"
...
Рейтинг: 0 / 0
19.07.2005, 18:56:30
| Ответить | Цитировать | Написать  
Current Printer
    #33196961
ROL32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROL32
Гость
Все гораздо проще:
У DataWindow есть свойство Printer

Пример из Help for PB6.5
lsPrinter = dw_1.Object.DataWindow.Printer
lsPrinter = dw_1.Describe("DataWindow.Printer")
...
Рейтинг: 0 / 0
02.08.2005, 15:29:57
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Current Printer
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&msg=33173689&tid=1338217]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 196ms
total:  294ms
созд. / загр.: 294ms
x
x
Закрыть


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