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 

Imprimir em matricial não fiscal bematch com comando Writeln

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


Registrado: Quarta-Feira, 14 de Dezembro de 2005
Mensagens: 448

MensagemEnviada: Qua Dez 20, 2006 12:16 am    Assunto: Imprimir em matricial não fiscal bematch com comando Writeln Responder com Citação

Galera é o seguinte imprimir diretamente na porta da impressora é moleza, o que eu quero é imprimir com formatação sem usar a DLL da Bematech, o código abaixo imprimi blz porem sem formação:
AssignFile(Arquivo,'LPT1');
Rewrite(Arquivo);
Write(Arquivo, #15);
Writeln(Arquivo,Format('%-60s', [dados.CDS_LicencaFANTASIA.Value]));
Writeln(Arquivo,Format('%-60s', [dados.CDS_LicencaRAZAO.Value+' '+format ('%-3s',[dados.CDS_LicencaTELEFONE.Value])]));
Writeln(Arquivo,Format('%-60s', [dados.CDS_LicencaENDERECO.Value+' '+dados.CDS_LicencaNUMERO.Value+' '+dados.CDS_LicencaBAIRRO.Value+' '+dados.CDS_LicencaTELEFONE2.Value]));
CloseFile(Arquivo);

Só que eu achei aqui no forum os seguintes códigos:

Inicializa = #27#64; // Inicializa a Impressora
Justifica = #27#97#51; // Justifica o Texto a Ser impresso
Draft = #27#120#0; // Aciona Modo Draft
Imediato = #27#105#1; // Aciona Modo Imediato
Caracter = #27#77; // Aciona Modo Caracter Rápido.
Centro = #27#97#49; // Centraliza a Impressão
Esquerda = #27#97#48; // Posiciona na Margem Esquerda
MEsquerda = #27#108#5; // Define a Margem Esquerda
MDireita = #27#81+#78; // Define a Margem Direita
Tab1 = #27#68#32; // Define a Tabulação 1 = 32;
Tab2 = #27#68#41#50; // Define a Tabulação 2 = 50;
Tab3 = #27#68#27; // Define a Tabulação 3 = 27;
Tab4 = #27#68#37; // Define a Tabulação 4 = 37;
Tab5 = #27#68#45; // Define a Tabulação 5 = 45;
Tab6 = #27#68#10; // Define a Tabulação 6 = 10;
Tab7 = #27#68#46; // Define a Tabulação 7 = 46;
Tab8 = #27#68#20; // Define a Tabulação 8 = 20;
Normal = #20; // Define Caracter 20 Tamanho Normal;
Condensado = #15; // Define Caracter 15 Modo Condensado;
Expandido = #14; // Define Caracter 14 Modo Expandido;
CNegrito = #27#71; // Define Caracter Negrito;
SNegrito = #27#72; // Define Caracter Não Negrito;
CSublinha = #27#49;
SSublinha = #27#48;
Ass = #27#9; // Tabulação Assume a Posição;
Saltar = #27#102#49#5; // Nº de Linhas a Saltar;
TabEXP0 = #27#68#0;
TabEXP1 = #27#68#7;
TabEXP2 = #27#68#38;
TabEXP3 = #27#68#49;
TabEXP4 = #27#68#44;
TabEXP5 = #27#68#25;

Só que a impressora não fiscal da bematech não aceita esses comandos e eu queria centralizar algumas linhas na impressão e outra imprimir em negrito ou expandido. alguem sabe faze-lo?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
chip_set
Experiente
Experiente


Registrado: Quarta-Feira, 14 de Dezembro de 2005
Mensagens: 448

MensagemEnviada: Qua Dez 20, 2006 3:10 pm    Assunto: Responder com Citação

subindo..
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
weberdamasio
Experiente
Experiente


Registrado: Sábado, 19 de Julho de 2003
Mensagens: 420
Localização: Maringá - PR

MensagemEnviada: Qua Dez 20, 2006 4:03 pm    Assunto: Responder com Citação

Procure no site da bematech o manual da impressora especifica.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
chip_set
Experiente
Experiente


Registrado: Quarta-Feira, 14 de Dezembro de 2005
Mensagens: 448

MensagemEnviada: Sex Dez 22, 2006 11:04 pm    Assunto: Responder com Citação

Eu ja estive por la dando uma olhada baixei o manual olhei, olhei testei, testei mas não consegui fazer a impressão CENTRALIZADA, os outros dados que eu queria consegui só não o centralizado se alguem souber o segredo fico grato. value...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
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