Página 1 de 1
Impressora
Enviado: 29 Mai 2009 14:27
por anderson.ol
Como pegar a impressora padrão do computador?
Como pegar a porta da impressora padrão?
Se o programa padrão for mapeada, como pegar o caminho?
Exemplo: \\computador\impressora
Re: Impressora
Enviado: 01 Ago 2009 22:25
por toya
Espero que te ajude:
Código: Selecionar todos
#include "FiveWin.ch"
function Main()
local aAux:={}
local x:=0,i:=0, cAux1:="", cAux2:=""
msginfo( "Impressora padrao:"+CRLF+CRLF+"Nome da Impressora: "+PrnGetName()+CRLF+"Nome do Drive: "+PrnGetDrive()+CRLF+"Conectada na Porta: "+PrnGetPort() )
aAux:=GetPrinters(.t.)
for x=1 to len(aAux)
for i=1 to len(aAux[x])
cAux2+=aAux[x,i]+" "
next
cAux2+=CRLF
next
msginfo("Onde conter: NETWORK=remoto, LPTx=local: "+CRLF+CRLF+cAux2)
return nil