olá pessoal,
Estou usando o PrWin para impressão, no caso de várias impressoras instaladas,
o PrWin coloca as impressoras em uma ordem, por exemplo a HP seria 1, MP-4200 TH seria a 2 e assim por diante,
gostaria que na rotina abaixo, seguisse a mesma ordem das impressoras que aparecem no PrWin para pegar o
numero correto da impressora que tendo como parâmetro o nome de uma impressora, mas eu não estou
conseguindo saber qual é o critério usado por PrWin para por
as impressoras em sequência.
Function NumeroPrinter(nomeimpressora,numero_da_impressora)
Local i, aPNomes := {}
Local aPrn := GetPrinters( .t. )
If Empty( aPrn )
Alert( "Nenhuma impressora Instalada !" )
Return ( cPrinter )
Endif
For i=1 To Len( aPrn )
AaDd( aPNomes , aPrn[i,1] )
if UPPER(ALLTRIM((nomeimpressora))) = UPPER(ALLTRIM(aPrn[i,1]))
numero_da_impressora = i ; exit
endif
Next
Return(numero_da_impressora)
Harbour 3.2