Local lnKolPrn,lnCurPrn

IF PEMSTATUS(thisform,"Prns",5)=.F.
    thisform.AddProperty("Prns(1,1)") && создаем св-во формы тип- массив. Это  используется и 
                      && в других контролах. Создаем в ините формы
ENDIF 

&& Инит класса с комбо. Заполняем комбобокс

m.lnKolPrn=Aprinters(Thisform.Prns)

If m.lnKolPrn>0
    For i=1 To m.lnKolPrn
        Thisform.Prns(i,1)= "___"+ALLTRIM(Thisform.Prns(i,1))
    Endfor

    This.cmbPrinters.RowSourceType= 5
    This.cmbPrinters.RowSource="thisform.Prns"

&& Вычисляем дефолтный принтер системы
    Declare Integer GetDefaultPrinter In winspool.drv;
        STRING  @ pszBuffer,;
        INTEGER @ pcchBuffer
    lnBufsize = 250
    lcPrinter = Replicate(Chr(0), lnBufsize)

    = GetDefaultPrinter(@lcPrinter, @lnBufsize)
    lcPrinter = Alltrim(Substr(lcPrinter, 1, At(Chr(0),lcPrinter)-1))
    m.lcPrinter ="___"+m.lcPrinter

&&   Находим индекс дефолтного принтера в системе    
    m.lnCurPrinter=Ascan(Thisform.Prns,m.lcPrinter,1,m.lnKolPrn,1,8)
&& Устанавливаем его текущим в Value  комбобокса
    If m.lnCurPrinter>0
        This.cmbPrinters.Value=Thisform.Prns(m.lnCurPrinter,1)
    Endif
Endif

CLOSE DATABASES ALL
PUBLIC goFrm as Form 
goFrm = CREATEOBJECT('form1')
IF VARTYPE(goFrm) # "O"
    RELEASE goFrm
    RETURN .F.
ENDIF
goFrm.Show()     

DEFINE CLASS form1 AS form
    Caption = "Form1"
    Name = "Form1"

    ADD OBJECT combo1 AS combobox WITH ;
        ColumnCount = 2, ;
        ColumnWidths = "87,50", ;
        RowSourceType = 6, ;
        RowSource = "region.regiondescription,regionid", ;
        FirstElement = 1, ;
        Height = 24, ;
        Left = 12, ;
        NumberOfElements = 0, ;
        Style = 2, ;
        Top = 12, ;
        Width = 121, ;
        Name = "Combo1"

    PROCEDURE Load
        IF !USED('region')
            USE (HOME(2)+ "northwind\region.dbf") IN 0 SHARED
            IF !USED('region')
                RETURN .F.
            ENDIF
        ENDIF     
    ENDPROC

    PROCEDURE Init
*!*           IF ThisForm.Combo1.ListIndex = 0 && uncomment this lines to set initial item
*!*               ThisForm.Combo1.Value = 3
*!*           ENDIF
    ENDPROC

    PROCEDURE Unload
        RELEASE goFrm
        CLOSE DATABASES ALL
    ENDPROC

ENDDEFINE

.ControlSource = "mytable.field1"