Impressão remota via WEB

Para quem tem um aplicativo rodando em um servidor Apache, escrito em CGI/perl ou PHP, e deseja imprimir em uma impressora matricial remota de nota fiscal por exemplo, a solução que desenvolvi pode ser usada tanto em Linux quanto em Windows e é totalmente livre.

[ Hits: 30.419 ]

Por: Arnaldo Luiz Estevao em 05/01/2007


webpserver.bat (cliente Windows)



@echo off
rem este arquivo deve ser chamado no autoexec.bat ou por um atalho no menu iniciar
rem crie um diretório dentro do c: chamado fila
rem mkdir c:\fila
rem depois grave este arquivo la dentro
rem abaixe o arquivo wget.exe em
rem http://users.ugent.be/~bpuype/cgi-bin/fetch.pl?dl=wget/wget.exe
rem e copia para o diretório c:\fila também
rem você pode substituir lpt1 pela porta necessária
rem ou substituir copy c:\fila.txt lpt1
rem por print c:\fila\t.txt \\contabilidade\notafiscal para enviar o arquivo
rem para dentro de uma fila remota na rede local

echo Servidor de impressão
mkdir c:\fila > nul:
:inicio
c:\fila\wget -O c:\fila\t.txt http://seusite.com.br/cgi-bin/webpserver.cgi?fila=nostafiscal
find "0" c:\filat.txt
if errorlevel 1 goto inicio
Echo Imprimindo -----------------------------------------------------
type c:\fila\t.txt
copy c:\fila\t.txt lpt1
goto inicio
Página anterior     Próxima página

Páginas do artigo
   1. Servidor de impressão
   2. webpserver.bat (cliente Windows)
   3. rc.webpserver (cliente Linux)
Outros artigos deste autor

Instalando Slackware 11.0 em um pendrive

Autenticação mútua SSL em servidores de NF-e e CT-e

XML de NF-e ou CT-e ou MDF-e - Como validar usando os pacotes de esquemas do Governo

Phperl, minha gambiarra para usar Perl como se fosse PHP

Leitura recomendada

Manipulação de sockets em Perl usando o IO::Socket::INET

Enviando notificações do Nagios para o MSN

Gerenciando redes com Perl e SNMP

Instalação de MRTG em ambiente Windows

Programando em Perl (parte 2)

  
Comentários
[1] Comentário enviado por poleto em 06/01/2007 - 03:19h

Caro,

Interessante o script.
Vou dar a minha pequena contribuição:

A penúltima linha do script Perl não roda no windows

system("rm $file") ;

Pois faz uma chamada a um comando de sistema para remover o arquivo, sendo que no windows não existe o comando 'rm', no mesmo o comando seria 'del'.

Essa foi a linha que vi de imediato, além das que você já citou.

Abraços,
Poleto

[2] Comentário enviado por jeffersondantas em 12/04/2007 - 18:28h

BOM

[3] Comentário enviado por lipecys em 20/05/2008 - 19:42h

Ótimo artigo, foi pro favoritos.

[4] Comentário enviado por regguerreiro em 04/03/2015 - 15:27h


Ola boa tarde, estou utilizando servidor linux, banco de dados mysql e a linguagem de programação é o php, preciso fazer uma impressão direta na impressora via browser na maquina do cliente. A impressora esta na porta lpt1 e o site esta no servidor. nunca utilizei o linux e nem o slackware... poderiam me dar umas dicas/ajuda... me passem o contato via skype, facebook, whatsapp.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts