FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Nome do compartilhamento da impressora
Posts: 117
Joined: Mon Aug 13, 2007 05:22 PM
Nome do compartilhamento da impressora
Posted: Wed Mar 05, 2008 06:44 PM

Ola pessoal

Preciso saber como pegar o nome do compartilhamento da impressora
ja tentei com as funcoes
* oPrn:GETMODEL()
* PrnGetName() ,
* PrnGetDrive() ,
* AGetPrinters()
* GetDefaultPrinter()
* PrnGetName()
e nenhuma me traz o nome do compartilhamento

Impressoras compartilhada no WindowsXp ele mostra assim na aba GERAL:

1º) ==> \Terminal\Epson LX-810

porém na aba PORTAS, é q. esta o nome do compartilhamento ficando assim:

2º) ==> \Terminal\lx810

oPrnDos := TDosPrn():New( cFilePrint )
oPrnDos:StartPage()
FOR n = 1 TO Min(MlCount(cTxt,oWnd:cargo:nMaior),66)
oPrnDos:Say(n,0,StrTran(Rtrim(Memoline(cTxt,oWnd:cargo:nMaior,n)),CRLF),j+3)
NEXT
oPrnDos:EndPage()
oPrnDos:End()
Caso qPorta := \Terminal\lx810 funciona perfeito
mas qPorta := \Terminal\Epson LX-810 NAO FUNCIONA

WAITRUN("CMD /C COPY /B " + cFilePrint + " " + qPorta, 0 )

Preciso saber como pegar o nome do compartilhamento correto

Obrigado

Marcelo Ferro da Silveira

Fwh14.04/xHarbour 1.2.3 Simplex / Bcc582 / Pelles 8

SqlLib /xMate/WS

Continue the discussion