Impressora

[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

[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