Пример

Значения для часто используемых кодировок:

'Процедура служит для восстановления позиции окна из
'системного реестра Windows, в случае неудачи берем
'значения по - умолчанию (100, 100, 10600, 5900)
'второй параметр указывает на то, что нужно восстановить
'только положение окна без его размеров
Public Sub RestoreWindowsPos(frm As Form, Optional whNo As Boolean = False)
Dim KEY_STRING As String

    KEY_STRING = APP_NAME & "\" & KEY_SETWINDOW
'Восстанавливаем позицию окна на рабочем столе Windows
    frm.WindowState = GetSetting(KEY_STRING, frm.Name, CUR_STATE, 0)
'если "нормальное" положение, то считать остальные параметры
    If GetSetting(KEY_STRING, frm.Name, CUR_STATE, 0) = 0 Then
        frm.Left = GetSetting(KEY_STRING, frm.Name, CUR_X, 100)
        frm.Top = GetSetting(KEY_STRING, frm.Name, CUR_Y, 100)
        If whNo Then Exit Sub
        frm.Width = GetSetting(KEY_STRING, frm.Name, CUR_dX, 10600)
        frm.Height = GetSetting(KEY_STRING, frm.Name, CUR_dY, 5900)
    End If
    End Sub

'Процедура служит для сохранения позиции окна в
'системном реестре Windows
Public Sub SaveWindowsPos(frm As Form)
Dim KEY_STRING As String

    KEY_STRING = APP_NAME & "\" & KEY_SETWINDOW
'Сохраняем позицию окна на рабочем столе Windows
    SaveSetting KEY_STRING, frm.Name, CUR_STATE, frm.WindowState
    SaveSetting KEY_STRING, frm.Name, CUR_X, frm.Left
    SaveSetting KEY_STRING, frm.Name, CUR_Y, frm.Top
    SaveSetting KEY_STRING, frm.Name, CUR_dX, frm.Width
    SaveSetting KEY_STRING, frm.Name, CUR_dY, frm.Height
End Sub

'Проверяем доступен ли принтер в системе
Public Function TestPrinter() As Boolean
Dim PrtName As String
    On Error Resume Next 'не останавливаться при ошибке
    PrtName = Printer.DeviceName 'попробовать прочитать название принтера
    If PrtName <> vbNull Then 'если получилось то принтер доступен
        TestPrinter = True
    Else 'иначе принтер недоступен
        TestPrinter = False
    End If
    Err.Clear
End Function

    А в этом примере найти номер принтера в системе и возвратить его номер для дальнейшего использования:

'ищем указаный принтер в коллекции Windows
'и возвращаем его номер
Public Function SetPrn(sName As String) As Long
Dim i As Integer

'на случай если принтер не найден
    SetPrn = -1
    If Printers.Count = 0 Then Exit Function
    For i = 0 To Printers.Count - 1
        If UCase(Printers(i).DeviceName) = UCase(sName) Then
        'то что нужно, возвратить номер принтера
            SetPrn = i
            Exit Function
       End If
    Next i
End Function