Impressora DR700 D-Printer

[Ricardo Sales Ribeiro]

Olá amigos
Boa Noite


Estou mais uma vez precisando de ajuda, meu cliente comprou uma Impressora DR700 D-Printer Termica, para q eu possa imprimir umas comandas ok. Só q nunca trabalhei com essa impressora, e atraves do clipper gostaria de saber como fazer:

Ela vai ser ligada na porta Serial na Com1

Quero saber quais comando para abrir e fechar essa impressora na porta serial, quanto aos comandos de impressão acredito q seja normal como se fosse uma impressora não fiscal, clipper normal, tipo @ 01,01 Say ´Teste´.

nas impressoras paralelas tipo Epson Lx-300 apenas coloco set devi to print e assim vai mas na serial como fazer.

Atenciosamente

Ricardo

[Pablo César]

Oi Ricardo, até onde eu sei não dá para imprimir direto na serial assim como fazemos com a LPT1 diretamente. Mas tem uma solução é capturando para LPT1. E de todas as formas eu aconselho sempre gerar um arquivo para impressão, não imprimir diretamente como fazíamos em WIN98. Aconselho você dar uma lida no tópico onde eexplico como fazer: viewtopic.php?f=1&t=5975&p=27183#p27183 . Acho que também existe outra possibilidade, é conseguir um adapatador ou até mesmo confeccionar o cabo serial que transforme para paralela (nunca testei) mas vale a pena conferir este tópico: viewtopic.php?f=1&t=8510&p=47835&hilit=impressora+serial#p47785 abaixo desta mensagem tem a instrução de como fazer cabo serial.

Quanto aos comando da impressora, geralmente é padrão EPSON, mas não conheço essa sua impressora.

[alxsts]

Olá!

Acho que para abrir a impressora na porta COM você não terá problema. Certamente a impressora tem códigos de controle para formatação da impressão e você terá que estudar isso no manual da mesma.
Segue um exemplo de impressão em impressora na porta COM (se não me falha a memória, era para impressora Zebra):

Código: Selecionar todos

*   ETIQ
*
*   etiquetas codigo de barras
*

I_COPIAS = 4
I_INI    = 0
I_FIN    = 0
I_TAM    = 8
C_FOOT   = SPACE(30)
C_PORTA  = '1'
DO WHILE .T.
   CLEAR SCREEN

   @ 05,05 TO 20,75
   @ 07,07 SAY '            Porta' GET C_PORTA  PICT '9' VALID C_PORTA = 1 .OR. C_PORTA = 2
   @ 09,07 SAY '           Cópias' GET I_COPIAS PICT '99'
   @ 11,07 SAY '   Número inicial' GET I_INI    PICT '99999999'
   @ 12,07 SAY '     Número final' GET I_FIN    PICT '99999999'
   @ 13,07 SAY 'Número de dígitos' GET I_TAM    PICT '99'
   @ 15,07 SAY '  Linha adicional' GET C_FOOT   PICT '99999999'
   READ
   IF LASTKEY() = 27
      EXIT
   ENDIF

   C_COM = 'COM'+C_PORTA

   @ 15,07 SAY 'Imprimindo ... '
   SET CONSOLE OFF
   SET PRINTER TO &C_COM
   SET PRINTER ON

   FOR I_LOOP = I_INI TO I_FIN

      ***
      *** footer
      C_IMP = CHR(2)+'L'+CHR(13)+'H18'+CHR(13)+'D11'+CHR(13)+'PG'+CHR(13)
      C_IMP = C_IMP+'12110000000'+'0030'+C_FOOT+CHR(13)
      C_IMP = C_IMP+'12110000000'+'0230'+C_FOOT+CHR(13)

      C_ETQ = STRZERO(I_LOOP,I_TAM)
      ***
      *** barra           |altura (45)
      C_IMP = C_IMP+'1d520500015'+'0030'+C_ETQ+CHR(13)
      C_IMP = C_IMP+'1d520500015'+'0230'+C_ETQ+CHR(13)

      C_HEADER = C_ETQ + '   XX'
      ***              |tamanho da letra (11)
      *** header              |margem superior
      C_IMP = C_IMP+'12200000070'+'0030'+C_HEADER+CHR(13)
      C_IMP = C_IMP+'12200000070'+'0230'+C_HEADER+CHR(13)

      C_IMP = C_IMP+'E'+CHR(13)

      FOR I_COPIA = 1 TO I_COPIAS
         ?? C_IMP
      NEXT

   NEXT

   FOR I_LOOP = 1 TO 4
      ? CHR(2)+'L'+CHR(13)+'H18'+CHR(13)+'D11'+CHR(13)+'PG'+CHR(13)+'E'+CHR(13)
   NEXT

   SET PRINTER OFF
   SET PRINTER TO
   SET CONSOLE ON

   EXIT
ENDDO
RETURN

eSPERO QUE AJUDE.

[Maurício Elias]

Olá. Boa tarde.

Já imprimi em COM , umas droguinas matriciais, assim:

Set Device to Printer
Set Printer to COM1

@ 1,0 say "XXXXXXXXXXXXX"

Set Printer to
Set Device to Screen

Abraços...

_______
Maurício.