Se a impressora em que você quer imprimir está instalada no Windows do PC que você quer para imprimir, então pode inserir este código:braz escreveu:gostaria de saber como faço, qual o comando, para escolher uma impressora na rede ou local
Código: Selecionar todos
FUNCTION Main()
LOCAL nPrn:=1
LOCAL aPrn:= GetPrinters()
CLS
IF EMPTY(aPrn)
Alert("Nemnhma impressora instalada !")
QUIT
ENDIF
DO WHILE !EMPTY(nPrn)
CLS
@ 0,0 SAY 'Escolha uma impressora. ESC para sair.'
@ 1,0 TO maxRow(),maxCol()
nPrn:= ACHOICE(2,1,maxRow()-1,maxCol()-1,aPrn,.T.,,nPrn)
IF !EMPTY(nPrn)
// Imprimir(aPrn[nPrn]) // Função que imprime
ENDIF
ENDDO
RETURN(NIL)Quero imprimir modo texto diretamente na impressora escolhida, estou usando Xharb.Você pediu para selecionar impressora, mas não disse como você vai querer imprimir. Em modo texto ou gráfico. Você está mandando a impressão diretamente à impressora ou está criando um arquivo de impressão. Você está usando Harbour ou xHarbour em modo console ?
Você precisa ler a seção, como fazer perguntas inteligentes.É quase isso que vc fez, mas qdo escolho qualquer impressora da rede e teclo ESC a impressão sai na impressora local.
Está pergutando ou afirmando ?qual o comando, para escolher uma impressora na rede ou local.
É... realmente está dificil de entender. Você braz faz um pedido mas não especifica o que você está fazendo para imprimir. Aí fica dificil de adivinhar... Por isso eu apenas me limitei a passar o código que seleciona impressoras, pois esse é o título do seu post. Mas vamos lá... vamos ser mais detalhistas possível, mais específicos e tentaremos te ajudar. Analisemos o que você disse:Itamar escreveu:Não tem como nós advinharmos algumas coisas, quanto mais voce poder explicar para nós melhor.
Você escolheu ou deu um ESC ? Escolher pra mim é dar um ENTER. Veja que o exemplo que passei trata corretamente essa questão do ESC. Portanto se você fez igual ao que te passei, então não tinha por quê imprimir quando dá um ESC. Dar um ESC nessa situação é para cancelar a impressão. Certo ?braz escreveu:mas qdo escolho qualquer impressora da rede e teclo ESC a impressão sai na impressora local
Então se você ja tem teu código de impressão com o "SET PRINTER TO" é claro que irá imprimir na LPT1 (por geral é a impressora local) então você não precisa selecionar impressora alguma. Mas se você quer mudar essa situação, você devia ter composto a sua pergunta de forma diferente, assim nós podemos te guiar da melhor forma. Acontece que este tema de impressão é bem extenso e você precisa rever seus conceitos com xHarbour. Pois existem várias formas de imprimir. Se você quer continuar a imprimir do jeito do antigo Clipper, você terá algumas restrições, pois não toda impressora imprime em modo RAW, algumas não obedecem os comandos padrão EPSON. Então se você quer utilizar xHarbour, você deve pensar como o xHarbour trabalha e para isso você tem que ler aqueles tópicos que o Sr. Toledo passou. Se você tem pressa e não consegue digerir tanto texto e ainda quer um resultado rápido, eu sugiro você redirecionar sua impressão para arquivo de impressão e daí se as impressoras estão devidamente mapeadas é só adicionar no final do relatório, após a geração do arquivo, a seguinte linha:...para imprimir em rede usando a classe WIN_PRN...
...a impressora na estação tem que está compartilhada...
Agora se voce usa SET PRINTER TO é preciso mapear a impressora
Código: Selecionar todos
cSaida:="\\COMPUTADOR1\EPSON" // digamos que a sua impressora seja esta
COPY FILE("REL001.PRN") TO (cSaida)Código: Selecionar todos
FUNCTION Main()
CLS
cImp:=EscolheImp()
IF !EMPTY(cImp)
SET PRINTER TO (cImp)
SET DEVICE TO PRINT
@ 10,10 SAY "TESTE DE IMPRESSAO"
@ 12,10 SAY "AQUI VOCE MONTA SEU RELATORIO"
EJECT
SET PRINTER TO
SET DEVICE TO SCREEN
ENDIF
RETURN NIL
Function EscolheImp()
LOCAL nPrn:=1, cRet:="", nCol, nLin
LOCAL aPrn:= GetPrinters()
IF EMPTY(aPrn)
Alert("Nemnhma impressora instalada !")
RETURN (cRet)
ENDIF
nCol:=1
nLin:=IF(Len(aPrn)>10,10,Len(aPrn))
For i=1 TO Len(aPrn)
if Len(aPrn[i])>nCol
nCol:=Len(aPrn[i])
endif
Next
@ 0,0 SAY 'Escolha uma impressora. ESC para sair.'
@ 1,0 TO nLin+2,nCol+1
nPrn:= ACHOICE(2,1,nLin+1,nCol,aPrn,.T.,"FUNCSEL",nPrn)
IF nPrn>0
cRet:=aPrn[nPrn]
ENDIF
RETURN (cRet)
FUNCTION FuncSel( nMode, nElement, nRow )
LOCAL nKey := LastKey()
IF nMode==3
IF nKey==13
RETURN 1
ELSEIF nKey==27
RETURN 0
ENDIF
ENDIF
RETURN 2Vou apenas colocar duas linhas para que você PERCEBA que o código passado, sim escolhe através de um ENTER e com ESC não.braz escreveu:Essa rotina que vc passou, se vc olhar BEM, vai perceber que se voce apertar a tecla ENTER, não irá acontecer nada
Código: Selecionar todos
FUNCTION Main()
LOCAL nPrn:=1
LOCAL aPrn:= GetPrinters()
CLS
IF EMPTY(aPrn)
Alert("Nenhuma impressora instalada !")
QUIT
ENDIF
DO WHILE !EMPTY(nPrn)
CLS
@ 0,0 SAY 'Escolha uma impressora. ESC para sair.'
@ 1,0 TO maxRow(),maxCol()
nPrn:= ACHOICE(2,1,maxRow()-1,maxCol()-1,aPrn,.T.,,nPrn)
IF !EMPTY(nPrn)
// Imprimir(aPrn[nPrn]) // Função que imprime
ALERT("A impressora selecionada foi "+aPrn[nPrn])
ELSE
ALERT("Valor da variavel nPrn ‚ "+ALLTRIM(STR(nPrn))+". Portanto nenhuma impressora selecionada !")
ENDIF
ENDDO
RETURN(NIL)Código: Selecionar todos
FUNCTION Main()
CLS
cImp:=QualImp()
IF !EMPTY(cImp)
SET PRINTER TO (cImp)
SET DEVICE TO PRINT
@ 10,10 SAY "TESTE DE IMPRESSAO"
@ 12,10 SAY "AQUI VOCE MONTA SEU RELATORIO"
EJECT
SET PRINTER TO
SET DEVICE TO SCREEN
ENDIF
RETURN NIL
Function QualImp()
LOCAL nPrn:=1, cRet:="", nCol, nLin
LOCAL aPrn:= GetPrinters(.T.)
IF EMPTY(aPrn)
Alert("Nemnhma impressora instalada !")
RETURN (cRet)
ENDIF
nCol:=1
nLin:=IF(Len(aPrn)>10,10,Len(aPrn))
aImp:={}
For i=1 TO Len(aPrn)
if Len(aPrn[i,1])>nCol
nCol:=Len(aPrn[i,1])
endif
AADD(aImp,aPrn[i,1])
Next
@ 0,0 SAY 'Escolha uma impressora. ESC para sair.'
@ 1,0 TO nLin+2,nCol+1
nPrn:= ACHOICE(2,1,nLin+1,nCol,aImp,.T.,"FUNCSEL",nPrn)
IF nPrn>0
IF LEFT(aPrn[nPrn,2],2)=="\\"
cRet:=aPrn[nPrn,2]
ELSE
cRet:=aPrn[nPrn,1]
ENDIF
ENDIF
RETURN (cRet)
FUNCTION FuncSel( nMode, nElement, nRow )
LOCAL nKey := LastKey()
IF nMode==3
IF nKey==13
RETURN 1
ELSEIF nKey==27
RETURN 0
ENDIF
ENDIF
RETURN 2