Procedure escolhe_impressoras()
sLista_impressoras is string=iListPrinter() // lista impressoras
ListDeleteAll(COMBO_Impressoras) // limpar dados combox

FOR EACH STRING _nome_impressora OF sLista_impressoras SEPARATED by CR
ListAdd(COMBO_Impressoras,_nome_impressora)
END


//Seleciona Impressora

EDT_Impressora_nfce=COMBO_Impressoras..StoredValue

//Imprimir ,

iConfigure(empresa_parametro_nfe.Impressora_nfce)
iPrintReport(RPT_danf_nfce,gn_id_nota_fiscal)