DARUMA DR700 ETHERNET

NETVOO 05/03/2015 21:33:42
#445021
Pessoal preciso de um modelo de como imprimir na impressora DR700 ligada na rede.

já tentei os pacotes que tem Frameworkdaruma mais nenhum da opção de usar rede ou a porta que eu configurei ela.
se eu entro nas no painel de controle e preferencias dela eu ela imprime uma pagina de teste ou seja ela está funcionando.
A instalação foi realizada de acordo com o manual que o pessoal da Daruma me enviou.

Alguém da um help aee..

Obrigado
OCELOT 06/03/2015 11:12:24
#445032
Aparentemente você precisa de um conversor serial/ethernet para isso

http://www.desenvolvedoresdaruma.com.br/home/downloads/Site_2011/STKs/Daruma_GenericoTextoWin7_Conversor_Serial_Ethernet.pdf

No geral esse tipo de impressora não foi feito para ser usado pela rede, mas ainda assim deram um jeito com um aparelho externo.
NETVOO 07/03/2015 14:52:37
#445058
Caro OCELOT, não é essa a questão a minha tem a entrada ethernet, até funciona com outro comando fora do vb6.

mais preciso de um exemplo de como imprimir um cupom nela em vb6.
Já baixei todos os modelos do site da daruma mais nenhum funcionou para mim, e por isso que estou pedindo algum modelo para comparar onde estou errando na impressão, ou na comunicação..

Ela está com a porta criada está com formulário criado está imprimindo testes mais pelo vb6 não consegui comunicar com ela para imrimir.



EMANUEL 08/03/2015 10:48:36
#445072
Resposta escolhida
Amigo,
Eu uso a comunicação direta, funciona normalmente com qualquer impressora, apenas compartilho e mando a impressão usando os comandos abaixo.

Segue uma parte do meu codigo...que utilizo...

Open [Ô]\\NomeComputador\NomeImpressora[Ô] For Output As #1

Print #1, Chr$(&H1B); [Ô]@[Ô]; [ô]Inicializa a impressora
Print #1, [Ô]-----------------------------------------[Ô]; Chr$(&HA);
Print #1, Chr$(27) & Chr(14) + [Ô] Joao Pessoa-PB[Ô]; Chr$(&HA);
Print #1, Chr$(27) & Chr(14) + [Ô] Tel.: (83)3231-3792[Ô]; Chr$(&HA);
Print #1, [Ô]-----------------------------------------[Ô]; Chr$(&HA);
Print #1, Chr$(27) & Chr(14) + [Ô] D E L I V E R Y[Ô]; Chr$(&HA);
Print #1, [Ô]-----------------------------------------[Ô]; Chr$(&HA);
Print #1, [Ô]PEDIDO: [Ô]; LblNumMesa.Caption; Chr$(&HA);
Print #1, [Ô]DATA: [Ô]; Format(Date, [Ô]DD/MM/YYYY[Ô]); Chr$(&HA);
Print #1, [Ô]HORA: [Ô]; Format(Time, [Ô]HH:MM:SS[Ô]); Chr$(&HA);

Close #1


veja ai, qualquer coisa e só postar aqui...
1 abraço
Tópico encerrado , respostas não são mais permitidas