Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
20 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

marcos de boni

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7035 usuários registrados
O último usuário registrado atende pelo nome de marcos de boni

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

No final a Impressora não Ejecta cem corta o papel

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso No final a Impressora não Ejecta cem corta o papel

Mensagem por clima238 em 19/1/2012, 06:46

bom dia
o seguinte código imprime correctamente, só no fim não ejecta nem corta o papel,
alguem podia ajudar.
Obrigado desde já

Código:
*Botão Imprimir Click
LOCAL m.nArea, m.IDTicket, m.cApCajon, m.cCorte
with thisform
a_empresa = .txtempresa.value
a_morada = .txtpoblacion.value
o_nif = .txtnif.value
a_data = .txtfecha.value
o_total = .txtTotal.Value
o_desconto = .txtDescuento.Value
o_vendedor = .lblvendedor.caption
endwith

o_telefone = "Telefone: 231 88 18"
m.nArea = SELECT()

SET PRINTER TO NAME "EPSON TM-T20 Receipt"
SET CONSOLE OFF
SET PRINTER ON

??? CHR(27) + "@"

? CPCONVERT(1252, 850, a_empresa)
? CPCONVERT(1252, 850, a_morada)
? o_nif
? o_telefone
?


? "Venda em " + SPACE(8) + DTOC(a_data)+" as "+time()
? " "
? "QUANT ARTIGO VALOR "
? "----------------------------------------------"

SELECT as_vendas

SCAN
? as_vendas.quantidade PICTURE "9999"
?? " " + CPCONVERT(1252, 850, LEFT(as_vendas.descricao, 27))
?? as_vendas.valor PICTURE "999,999.99"
?? " Cve"
ENDSCAN

? "----------------------------------------------"
IF o_desconto > 0
? "DESCONTO "
?? o_desconto PICTURE "999,999.99"
?? " Cve"
ENDIF
? "TOTAL "
?? o_total PICTURE "999,999.99"
?? " Cve"
? " "
?? ROUND(o_total / 110.265, 0) PICTURE "999,999.99"
?? " Eur"
? " "

? "IVA INCLUIDO"
? IIF(!EMPTY(Thisform.lblVendedor.Caption),"ATENDIDO POR ", "") +
CPCONVERT(1252, 850, Thisform.lblVendedor.Caption)
a_coletilla = Thisform.txtcoletilla.value
? CPCONVERT(1252, 850, a_coletilla)
? " "

FOR n=1 to 5
? CHR(13)
NEXT

??? CHR(30)
??? CHR(27) + "=1"
??? CHR(27) + "@"

EJECT

SET PRINTER OFF
SET CONSOLE ON
SET PRINTER TO DEFAULT && Se necesita para que no quede la cola de impresión
ocupada
SELECT(m.nArea)
Imprimiu=.T.
Pode_Sair=.T.






clima238
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: No final a Impressora não Ejecta cem corta o papel

Mensagem por megasoft em 7/2/2012, 16:30

ja tentou declarar as DLLs dela, e imprimir passando as strings por parametros ?

"?" nao acho que seja uma boa maneira de trabalhar com as impressoras termicas.

Estou começando uma hj. mais ja comecei tudo com declaracao de DLLs para utilizar as funcoes dela.
avatar
megasoft
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: No final a Impressora não Ejecta cem corta o papel

Mensagem por angelomarco em 23/2/2012, 14:56

Bom amigo, pode não ser a melhor opção mas resolvi este problema assim:
Código:

SET CONSOLE OFF
SET ALTERNATE TO C:\temp\temp.txt
SET ALTERNATE ON

SET PRINTER TO &impressora

SET DEVICE TO PRINTER
SET PRINTER FONT 'DRAFT 10cpi',10

???CHR(27)+"C"+CHR(32)

@ l,1 say campo
l=l+2

@ l,1 say " "
EJECT

SET ALTERNATE OFF
SET ALTERNATE TO
SET PRINTER TO

SET DEVICE TO SCREEN
SET CONSOLE ON

angelomarco
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum