Bom Dia
Amigos Clipeiros!
Estou precisando de ajuda, tenho um sistema q roda na plataforma Win XP, más não consigo imprimir, numa impressora q não seja local. Tenho uma rede de 8 micros, todos XP, e em determinados micros tenho impressoras. Como fazer dentro do programa, para eu direcionar para uma determinada impressora q estar em um determinado micro?
Tentei usar este comando NET USE LPT1:\Servidor\Epson más dar erro na compilação.
Como fazer para eu ter tipo um Dbf, com os endereços das impressoras, e o usuário escolher na hora da impressão qual impressora será utilizada?
Por favor se alguem souber me informe, obrigado
Imprimir em Rede Plataforma Win XP com Cliper
Moderador: Moderadores
- Ricardo Sales Ribeiro
- Usuário Nível 3

- Mensagens: 279
- Registrado em: 13 Jul 2004 18:06
- Localização: Fortaleza-Ceara
- software_facil
- Usuário Nível 3

- Mensagens: 211
- Registrado em: 23 Fev 2005 12:19
- Localização: Curitiba/PR
- Contato:
Prezado,
Para mapear uma unidade de rede, ou uma impressora, ou qualquer outro recurso de uma rede, use estas funções da lib ct.lib :
mapeia uma unidade de rede para dados
NetRedir("R:", "\\servidor_dados\dados$")
set default to r:\sisloja
cancela o mapeamento (ao final da aplicação)
NetCancel("R:")
capturar em lpt2 uma impressora da rede
NetRedir( "LPT2:", "\\Servidor_print\HP4100tn" )
Set Device To Print
Set Printer To LPT2
liberar a impressora
Set Printer To
Set Device To Screen
NetCancel( "LPT2:" )
Abraços
Para mapear uma unidade de rede, ou uma impressora, ou qualquer outro recurso de uma rede, use estas funções da lib ct.lib :
mapeia uma unidade de rede para dados
NetRedir("R:", "\\servidor_dados\dados$")
set default to r:\sisloja
cancela o mapeamento (ao final da aplicação)
NetCancel("R:")
capturar em lpt2 uma impressora da rede
NetRedir( "LPT2:", "\\Servidor_print\HP4100tn" )
Set Device To Print
Set Printer To LPT2
liberar a impressora
Set Printer To
Set Device To Screen
NetCancel( "LPT2:" )
Abraços
messenger : software_facil@hotmail.com
- Antonio
- Usuário Nível 3

- Mensagens: 347
- Registrado em: 14 Ago 2003 17:33
- Localização: Sao Paulo - SP
- Contato:
Re: Imprimir em Rede Plataforma Win XP com Cliper
Ricardo Sales Ribeiro escreveu:Bom Dia
Amigos Clipeiros!
Estou precisando de ajuda, tenho um sistema q roda na plataforma Win XP, más não consigo imprimir, numa impressora q não seja local. Tenho uma rede de 8 micros, todos XP, e em determinados micros tenho impressoras. Como fazer dentro do programa, para eu direcionar para uma determinada impressora q estar em um determinado micro?
Tentei usar este comando NET USE LPT1:\Servidor\Epson más dar erro na compilação.
Como fazer para eu ter tipo um Dbf, com os endereços das impressoras, e o usuário escolher na hora da impressão qual impressora será utilizada?
Por favor se alguem souber me informe, obrigado
NET USE \\Servidor\Epson
Antonio Carlos
Harbour 3.2 (20180213)
Hwgui 2.20 3b | PostGresql 9.5 | ADO/ODBC
Harbour 3.2 (20180213)
Hwgui 2.20 3b | PostGresql 9.5 | ADO/ODBC
- Ricardo Sales Ribeiro
- Usuário Nível 3

- Mensagens: 279
- Registrado em: 13 Jul 2004 18:06
- Localização: Fortaleza-Ceara
Obrigado pela ajuda, vou testar dessa maneira.
software_facil escreveu:Prezado,
Para mapear uma unidade de rede, ou uma impressora, ou qualquer outro recurso de uma rede, use estas funções da lib ct.lib :
mapeia uma unidade de rede para dados
NetRedir("R:", "\\servidor_dados\dados$")
set default to r:\sisloja
cancela o mapeamento (ao final da aplicação)
NetCancel("R:")
capturar em lpt2 uma impressora da rede
NetRedir( "LPT2:", "\\Servidor_print\HP4100tn" )
Set Device To Print
Set Printer To LPT2
liberar a impressora
Set Printer To
Set Device To Screen
NetCancel( "LPT2:" )
Abraços