Imprimir impressora na rede ( IP )

[moises silva]

Bom dia a todos,
Sou programador Clipper a muitos anos, e tenho alguns sistemas funcionando em Clipper ainda, em máquinas antigas, infelizmente. Mas agora tem um cliente, que usa meu sistema no restaurante dele, que veio me perguntar se eu tinha como modernizar, a principio não precisa ter tela gráfica (apesar que depois ele vai querer), mas ele queria algumas funcionalidades para deixar mais prático o atendimento, e o principal é imprimir o pedido lançado no salão em uma impressora instalada na cozinha, e deixou a meu cargo, além de fazer essa funcionalidade no sistema, escolher a melhor impressora.
Como até então eu só trabalhei com o Clipper, vi que teria que mudar para o Harbour, já o conhecia a uns 2 anos, então baixei (seguindo orientações aqui no Fórum) e instalei o Harbour e consegui (depois de muito tentar), compilar meu sistema, e agora venho aqui pedir ajuda para duas coisas :
1- onde consigo uma rotina para imprimir o pedido na cozinha ? (vai ter somente uma impressora ligada em um cabo de rede, inclusive o cabo já está lá, não vai ter computador na cozinha)
2- qual impressora seria a melhor para essa finalidade ? aliás, vai ter que ser uma impressora com entrada para cabo de rede !
Por enquanto obrigado.

Moisés Silva

[fladimir]

mesmo q a impressora seja desconectada de micro via cabo estará conectada a algum micro via WIFI, ou seja, neste micro q esta instalada pra imprimir WIFI basta compartilhar ela e mandar imprimir nela.
Poderia ser em clipper mesmo, mas já q mudou pro Harbour melhor terá mais possibilidades.

Agora se quiser imprimir direto na impressora sem usar a instalação do micro teria q ver o manual e fazer uma comunicação via Sockets/IP, mas acho desnecessário.
Tenho clientes q tem impressoras WIFI e elas estão instaladas nos Windows da vida pra imprimir Remoto digamos assim e ai o sistema vai normal como se estivesse no cabo.

[moises silva]

Obrigado pela resposta Fladimir, entendi o que você disse, só que continuo com uma dúvida, por exemplo, nesse meu cliente, ele tem uma estrutura assim :
- 1 servidor que fica ligado direto (as tabelas DBF ficam nele) e tem 1 impressora multifuncional ligada nele
- 2 computadores (PC normal, CPU, Tela, teclado e mouse), 1 fica no caixa para recebimento e outro no salão
e todos são ligados em um HUB, então desse HUB é que sai o cabo de rede que vai até a cozinha, da maneira como está, tem alguma impressora que dê para instalar no Windows dessa forma ?

[fladimir]

acredito q sim (não sei qual o modelo da impressora) mas provavelmente ela tenha driver pra imprimir via IP no Windows, ou seja, o primeiro passo é instalar, se possível no servidor (pq fica mais estavel) e compartilha ela, ai vc manda imprimir nela q estara compartilhada.

[moises silva]

Para quem interessar, achei essa impressora, parece servir tanto para instalar em um ponto de rede, ligada direto no computador ou até como WI-FI.

http://produto.mercadolivre.com.br/MLB- ... hernet-_JM

[dbdc5554]

bom dia

funciona + vc vai ter que preparar o realatorio para comprimir..

se nao me engano umas 50 colunas, teria que ver nao me lembro

e ela se nao me engano é USB

Paiva

[moises silva]

Paiva,

Eu li todo o texto do anúncio e ela imprime em rede, wi-fi, etc.

Abraços

[Fernando queiroz]

bem simples fazer isso , tenho essa situacao aqui em casa, tenho uma impressora conectada diretamente no meu hub, apos a impressao em arquivo comando a impressao

FUNCTION IMP_TELA
   parameters boxtop, boxleft, boxbot, boxright, filename, namereport
      Local i, nPrn, oPrn, nMaxLen := 0, aPNomes := {}
      Local cPrinter := "", aPrn := Win_PrinterList( .t., .f. )
      LOCAL   vCombo1 := 1

      LOCAL oPanel1, oLabel1, oRichedit1, oCombo1, oOwnerbutton4, oOwnerbutton1, oOwnerbutton2, oOwnerbutton3

***      LOCAL oPanel1, oLabel1, oRichedit1, oCombo1, oButton1, oButton2, oButton3, oButton4
      private handle, topline, botline, leftedge, rightedge, linelength
      private nbrlines, lineoffset, kounter, endof_file
      private last_key, standard, position
      private iscrs

      Private vRichedit1 := MemoRead(filename)
      Private nsizefont := -13

      PREPARE FONT oFont NAME "COURIER NEW" WIDTH 0 HEIGHT 0 WEIGHT -13
      Private oFont2 := HFont():Add( "Courier New",0,-13 )
      if (PCount() < 5)
        return ""
      endif
      if (!file(filename))
        return .F.
      endif

*      If Empty( aPrn )
*         Hb_Alert( "Nenhuma impressora Instalada" )
*         Return ( cPrinter )
*      Endif

      for i=1 to len(aPrn)
         IF aPrn[i,1] = WIN_PRINTERGETDEFAULT()
            vCombo1:=i
            exit
         ENDIF
      next
      nCor:= 16777215

      INIT DIALOG oDlg TITLE namereport ;
         AT 0,0 SIZE hwg_GETDESKTOPWIDTH()-170,hwg_GETDESKTOPHEIGHT()-170 NOEXIT  ;
         STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 
      Thisform := oDlg

      @ 0,0 PANEL oPanel1 SIZE 1007,533 

      @ 502,18 SAY oLabel1 CAPTION "Impressora:" OF oPanel1  SIZE 72,19    ;
         FONT HFont():Add( '',0,-13,400,,,)
         
      @ 576,17 GET COMBOBOX oCombo1 VAR vCombo1  ITEMS aPRN OF oPanel1 SIZE 413,23

      
   
   If !Empty( aPrn )
       @ 8,4 OWNERBUTTON oOwnerbutton4  OF oPanel1 SIZE 55,44  ON CLICK {|| Win_PrintFileRaw(Alltrim(aPrn[vCombo1,1]),FileName,namereport) } FLAT BITMAP "rel_print"  FROM RESOURCE
   endif
   
*   @ 8,4 OWNERBUTTON oOwnerbutton4  OF oPanel1 SIZE 55,44  ON CLICK {|| faz_impressao(FileName,namereport) } FLAT BITMAP "rel_print" FROM RESOURCE
*         TEXT ''  ;
*         COORDINATES 0, 0, 0, 0  ;
*         BITMAP 'BITMAP\rel_print.bmp' TRANSPARENT  COORDINATES 0, 0, 0, 0
*
   @ 72,4 OWNERBUTTON oOwnerbutton2  OF oPanel1 SIZE 55,44 ON CLICK {|| ZOOMIMP2(oRichedit1,'+',nsizefont) } FLAT BITMAP "rel_zoom_in" FROM RESOURCE
*      ON CLICK {|| ZOOMIMP2(oRichedit1,'-',nsizefont) } ;
*        TEXT ''  ;
*        COORDINATES 0, 0, 0, 0  ;
*        BITMAP 'rel_zoom_in.bmp' TRANSPARENT  ;
*        COORDINATES 0, 0, 0, 0 
*
   @ 136,4 OWNERBUTTON oOwnerbutton3  OF oPanel1 SIZE 55,44 ON CLICK {|| ZOOMIMP2(oRichedit1,'-',nsizefont) } FLAT BITMAP "rel_zoom_out" FROM RESOURCE 
*      ON CLICK {|| ZOOMIMP2(oRichedit1,'-',nsizefont) };
*        TEXT ''  ;
*        COORDINATES 0, 0, 0, 0  ;
*        BITMAP 'rel_zoom_out.bmp' TRANSPARENT  ;
*        COORDINATES 0, 0, 0, 0     
*
   @ 201,4 OWNERBUTTON oOwnerbutton1  OF oPanel1 SIZE 55,44  ON CLICK {|| oDlg:close() } FLAT BITMAP "rel_exit" FROM RESOURCE
*      ON CLICK {|| oDlg:close() } ;
*        TEXT ''  ;
*        COORDINATES 0, 0, 0, 0  ;
*        BITMAP 'rel_exit.bmp' TRANSPARENT  ;
*        COORDINATES 0, 0, 0, 0    
*      
*    @ 305,2 BITMAP oBitmap1  ;
*        SHOW HBitmap():AddFile('sgchb\rel_print.bmp')  STRETCH 0  
*        OF oPanel1  TRANSPARENT SIZE 54,50 

      
*      @ 12,13 BUTTON oButton3 CAPTION "&Imprimir"  OF oPanel1  SIZE 98,32 ;
*         STYLE WS_TABSTOP   ;
*         ON CLICK {|| Win_PrintFileRaw(Alltrim(aPrn[vCombo1,1]),FileName,namereport) }
*         
*      @ 126,13 BUTTON oButton1 CAPTION "- Zoom"  OF oPanel1  SIZE 98,32 ;
*         STYLE WS_TABSTOP   ;
*         ON CLICK {|| ZOOMIMP2(oRichedit1,'-',nsizefont) }
*         
*      @ 238,13 BUTTON oButton2 CAPTION "+ Zoom"  OF oPanel1  SIZE 98,32 ;
*         STYLE WS_TABSTOP   ;
*         ON CLICK {|| ZOOMIMP2(oRichedit1,'+',nsizefont) }
*
*      @ 352,13 BUTTON oButton4 CAPTION "&Sair"  OF oPanel1  SIZE 98,32 ;
*         STYLE WS_TABSTOP   ;
*         ON CLICK {|| oDlg:close() } 
         
      @ 5,51 RichEdit oRichedit1 TEXT vRichedit1 SIZE HWG_GETDESKTOPWIDTH()-175,HWG_GETDESKTOPHEIGHT()-225;
         OF oDLG ID ID_TEXTO;
         COLOR 0 BACKCOLOR 16777215 ;
         ON Getfocus {|| TopoDoc(oRichedit1)};
         STYLE WS_TABSTOP+WS_HSCROLL+WS_VSCROLL+ES_LEFT+ES_MULTILINE+ES_READONLY;
         FONT oFont2      
      
      
   ACTIVATE DIALOG oDlg CENTER

RETURN oDlg:lresult
***********************
static FUNCTION topodoc(oRichedit1)
***********************
Local nPos
npos := HWG_SendMessage( oRichedit1:handle, EM_GETSEL, 0, 0 )
keyb_event(VK_HOME,.T.)
HWG_SendMessage(oRichedit1:handle,EM_SETSEL,HWG_Loword(npos),HWG_Loword(npos))
return .t.
******************************
static FUNCTION ZOOMIMP2(oEdit,csize)
******************************
nsizefont := nsizefont + iif(csize='-', 1 , -1)
nsizefont := iif(csize='-',min(-9,nsizefont),;
max(-25,nsizefont))
oFont2 := HFont():Add( "Courier New",0,nsizefont )
HWG_sendMessage(oEDiT:Handle,WM_SETFONT ,oFont2:handle,0 )
oEdIT:refresh()
RETURN .T.
******************************
static FUNCTION faz_impressao(Filename, namereport)
******************************
LOCAL hDc:=''
WIN_PRINTDLGDC( @hdc, , , )

*if !(EMPTY(hDc))
*   Win_PrintFileRaw(hDc,FileName,namereport)
*   Win_PrintFileRaw(Alltrim(aPrn[vCombo1,1]),FileName,namereport)
*endif
return nil

[dbsh]

A bematech MP 4200, 4000 e a 2100, todas elas imprimem em rede, basta ter o adaptador de rede na parte de trás da impressora, o custo deste adaptador e de 120 a 150 reais.