Imprimir em Rede Plataforma Win XP com Cliper

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
Ricardo Sales Ribeiro
Usuário Nível 3
Usuário Nível 3
Mensagens: 279
Registrado em: 13 Jul 2004 18:06
Localização: Fortaleza-Ceara

Imprimir em Rede Plataforma Win XP com Cliper

Mensagem por Ricardo Sales Ribeiro »

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
Ricardo Sales
Fortaleza-Ce
lodara53@yahoo.com.br
lodara53@hotmail.com
Avatar do usuário
software_facil
Usuário Nível 3
Usuário Nível 3
Mensagens: 211
Registrado em: 23 Fev 2005 12:19
Localização: Curitiba/PR
Contato:

Mensagem por software_facil »

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
messenger : software_facil@hotmail.com
Avatar do usuário
Antonio
Usuário Nível 3
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

Mensagem por Antonio »

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
Avatar do usuário
Ricardo Sales Ribeiro
Usuário Nível 3
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.

Mensagem por Ricardo Sales Ribeiro »

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
Ricardo Sales
Fortaleza-Ce
lodara53@yahoo.com.br
lodara53@hotmail.com
Responder