Página 1 de 1
imprimir pedido na elgin I-9
Enviado: 24 Jan 2018 14:27
por dbdc5554
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 = && 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
imprimir pedido na elgin I-9
Enviado: 24 Jan 2018 14:50
por Kapiaba
Paiva, veja se ajuda:
Código: Selecionar todos
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
imprimir pedido na elgin I-9
Enviado: 24 Jan 2018 14:59
por Kapiaba
Também:
Código: Selecionar todos
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