ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Imprerssao Via TPrint ou LPT1

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
josafags
Novato
Novato


Registrado: Sexta-Feira, 20 de Outubro de 2006
Mensagens: 55

MensagemEnviada: Qua Ago 31, 2011 1:38 pm    Assunto: Imprerssao Via TPrint ou LPT1 Responder com Citação

Moderadores do Active-Delphi escreveu:

Tópico editado por: johnny-walker
Motivo: Regras do fórum
Título Original: IMPRESSAO VIA TPRINT OU LPT1


Boa tarde
Amigos estou com problema na impressão de uma comanda.
fiz um soft. para uma lanchonete onde é preciso imprimir em comanda em uma lx300 mas não consigo alinha a comanda. via lpt1 onde posso dominar o tamanho do papel, ja pelo tprint consigo alinhar mas ao terminar pula como se fosse uma folha a4. mas estou imprimindo em uma bobina.

preciso que saia assim

cliente: tabclientenome
end: tabclienteend
_______________________
prod | quant | valor
xegg..........1..............R$:2,00
xcalabresa..1.............R$:3,00
moda.........1..............R$:2,00
carne de sol.1.............R$:3,00



e ta saindo assim assim

cliente: tabclientenome
end: tabclienteend
_______________________
prod | quant | valor
xegg......1......R$:2,00
xcalabresa......1......R$:3,00
moda......1......R$:2,00
carne de sol......1......R$:3,00

favor desconsidere os pontos..
se alguem souber como alinho e controlo a saida do papel serei muito grato.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qua Ago 31, 2011 2:41 pm    Assunto: Responder com Citação

Boa tarde

Se você está imprimindo em modo texto (TextFile), pode utilizar a função Format para alinhar as colunas a esquerda ou a direita. Ex:

Código:
Writeln(F, Format('%-15.15s', ['xegg']) +
           Format('%5.5s', [IntToStr(1)]) +
           Format('%12.12s', [Format('%m', [2])]));
Writeln(F, Format('%-15.15s', [xcalabresa']) +
           Format('%5.5s', [IntToStr(1)]) +
           Format('%12.12s', [Format('%m', [3])]));


Espero que seja útil.


Editado pela última vez por imex em Ter Out 17, 2023 12:28 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
daverson
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 24 de Março de 2010
Mensagens: 199

MensagemEnviada: Qui Set 01, 2011 10:20 pm    Assunto: Responder com Citação

para epson lx 300, eu prescisei criar um formulario no tamanho do papel usado, especifico para o programa que o cliente estava usando, no caso meia carta, ou seja papel carta picotado...

para isso em impressoras e aparelhos de fa (windows XP) clique com botao direito, acesse o menu propriedades do servidor e crie seu formulario no tamanho desejado, consegui resolver assim, pois nao fui eu quem fiz o sistema...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
josafags
Novato
Novato


Registrado: Sexta-Feira, 20 de Outubro de 2006
Mensagens: 55

MensagemEnviada: Seg Set 05, 2011 9:56 am    Assunto: agradecimentos Responder com Citação

muito obrigado

os codigos funcionaram perfeitos.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Seg Set 05, 2011 10:33 am    Assunto: Responder com Citação

Vc também pode imprimir de forma milimétrica com o objeto tprinter, até aqui no site tem alguns exemplos, alguns eu postei.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB