Нужно получить именно имя принтера , который стоит текущим.
Как это сделать? WinApi?

Надо и для 97 и для 2002.

Вот тут в 2002 есть объекты printer / printers

dim prn as Printer

set prn=??????

msgbox "Current Printer - " & prn.DeviceName

Что после Set prn = ставить?

Есть работает!

Как с 97-ым поступить?

Спасибо.

У меня что то не имя принтера выдается , а число.
???

Что то никак не догоню , не выходит.

Объявил в стандартном модуле ф-и

Public Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Public Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long


А в форме вот что делаю

dim sret as string, nret as string

sret = Space(255) 'do not remove this line!

nret = GetProfileString("Windows", "device", "", sret, Len(sret))

Потом Label.Caption=nret

Дает число.

Что наверное не так!

2 ВС
Спасибо, работает.

Да про какие вопросы ты ?