gibaf Posted June 12, 2007 Report Share Posted June 12, 2007 Ola.. Como fazer pra saber cual a porta (LPT/COM/USB) utilizada, numa impressora selecionada para impressao ? Desde ja agradeco: MUITO OBRIGADO ! Att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild Mar_06+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
gibaf Posted June 12, 2007 Author Report Share Posted June 12, 2007 Ola.. Como fazer pra saber cual a porta (LPT/COM/USB) utilizada, numa impressora selecionada para impressao ? Desde ja agradeco: MUITO OBRIGADO ! Att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild Mar_06+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
gibaf Posted June 12, 2007 Author Report Share Posted June 12, 2007 Descobri o PrnGetPort(), com a ajuda de Crystian, mas esse nao pega da impressora selecionado e sim da impressora default ! Se alguem ainda tiver dicar, por favor, enviem... Obrigado !!! Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild Mar_06+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
Flavio A. Zago Posted June 12, 2007 Report Share Posted June 12, 2007 Ola Gilberto Vê se ajuda. #Include "FiveWin.ch" PROCEDURE Main() LOCAL; aPrinter := GetPrinters(.T.),; cMsg,; i CLS IF Empty( aPrinter ) MsgInfo('Não há impressoras instaladas.') QUIT ENDIF cMsg := 'Impressoras disponÃveis'+CHR(10)+CHR(13) cMsg := +CHR(10)+CHR(13) FOR i := 1 TO Len( aPrinter ) cMsg += aPrinter[i,1]+' -> '+aPrinter[i,2]+CHR(10)+CHR(13) NEXT i MsgInfo(cMsg) RETURN NIL []´s Flavio xHb-Enterprise+Fw28 Quote Link to comment Share on other sites More sharing options...
Yury Posted June 12, 2007 Report Share Posted June 12, 2007 olá, tente com PrnGetName() um abraço Yury Marcelino Al vimansca@vimansca.com.br yury030575@yahoo.com.br skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.