Clipper On Line • Ver Tópico - imprimir pedido na elgin I-9

imprimir pedido na elgin I-9

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Postar uma resposta
 

imprimir pedido na elgin I-9

Mensagempor dbdc5554 » 24 Jan 2018 13:27

Boa tarde

uso imprimir pedido em BOBINA

se for a bematec mp_4200 tenho um procedimento difereciado

como fazer na Elgin I-9 ?

com a opcao NORMAL para bobinas imprime + não condença
com a opcao B reduziu un 30% teria que reduzir ++++

sera se fizer @ prow()+1, 00 say mp_4200_INICIO + [ ]+ mp_4200_CONDENSA + [ ]+ mp_4200_CONDENSA
resolveria ?

Paiva

PRIVATE mp_4200_INICIO :=chr(29) + chr(249) + chr(32) + chr(0) + chr(27) + chr(116) + chr(8)
PRIVATE mp_4200_CONDENSA:=chr(15)

if tinte_15 = [B] && Pedido em Bobina Mp_4200
*msgstop("apos feject 003")
@ prow()+1, 00 say mp_4200_INICIO + [ ]+ mp_4200_CONDENSA
else
@ prow()+1, 00 say chr(27)+chr(77)+[ ]+prt_15
endif
dbdc5554
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 149
Data de registro: 03 Dez 2012 07:49
Cidade/Estado: uberlandia-MG
Curtiu: 0 vez
Mens.Curtidas: 1 vez
Voltar ao topo

imprimir pedido na elgin I-9

Mensagempor Kapiaba » 24 Jan 2018 13:50

Paiva, veja se ajuda:

   DO CASE
   CASE OPCAOIMP = 1
      @ nLinha,01 SAY "A - M o d o  Condensado   com  6 Linhas Por Polegada"+CHR(15)                         OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 2
      @ nLinha,01 SAY "B - M o d o  Carta  com    6   Linhas  Por  Polegada"+CHR(27)+"G"                     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 3
      @ nLinha,01 SAY "C - Modo Carta Condensado  com 6 Linhas por Polegada"+CHR(27)+"G"+CHR(15)             OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 4
      @ nLinha,01 SAY "D - M o d o  Normal  com   8   Linhas  por  Polegada"+CHR(27)+"0"                     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 5
      @ nLinha,01 SAY "E - M o d o  Condensado   com  8 Linhas por Polegada"+CHR(15)+CHR(27)+"0"             OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 6
      @ nLinha,01 SAY "F - M o d o  Carta  com    8  Linhas   por  Polegada"+CHR(27)+"G"+CHR(27)+"0"         OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 7
      @ nLinha,01 SAY "G - Modo Carta Condensado  com 8 Linhas por Polegada"+CHR(15)+CHR(27)+"G"+CHR(27)     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 8
      @ nLinha,01 SAY "H - M o d o   Condensado   c o m   dupla   Impressao"+CHR(15)+CHR(27)+"E"             OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 9
      @ nLinha,01 SAY "I - M o d o  N o r m a l  c o m  d u p l a Impressao"+CHR(27)+"E"                     OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   CASE OPCAOIMP = 10
      @ nLinha,01 SAY "J - V o l t a  ao  Normal  com 6 Linhas por Polegada"+CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF oPrn
      nLinha := nLinha + 1
      @ nLinha, 00 SAY "."                                                                                   OF oPrn
      nLinha := nLinha + 1
   ENDCASE


abs
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo

imprimir pedido na elgin I-9

Mensagempor Kapiaba » 24 Jan 2018 13:59

Também:

   chr(12) = 12 o FF. salto de pagina.         estandar
   chr(14) = letra ancho  60 cpl               estandar
   chr(18) = modo normal  80 cpl               estandar
   chr(15) = modo condensado 140 cpl           hibrido
   chr(16) = modo condensado 120 cpl           extendido
   chr(17) = modo semi condensado 96 cpl       extendido
   chr(19) = negrito                           extendido
   chr(20) = modo super condensado 160 cpl     extendido


abs
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo
Postar uma resposta


Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes

Mudar para estilo Celular

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.