Fórum Assignfile(texto, ´lpt1´); Controlar o tamanho do Fonte #211969
05/02/2004
0
Boa tarde colegas , estou usando impressão direta via ‘ lpt1’ , e não o objeto tprinter , gostaria de saber se alguém conhece meios de controlar o tamanho e o nome da fonte via ‘ lpt1’ .
Agradeço possíveis ajudas...
Alex dias
Alexdiastec@ig.com.br
[b:47c90eef06][color=red:47c90eef06]Título editado pelo Moderador (AZ) - Removido: ´DUVIDAS COMO CONTROLAR TAMANHO E´[/color:47c90eef06][/b:47c90eef06]
Alexdias
Curtir tópico
+ 0Posts
05/02/2004
Aroldo Zanela
Procure por controles ESC /P.
Gostei + 0
06/02/2004
Alexdias
POR FAVOR SEJA MAIS CLARO , POIS ENTENDI BULUFAS OU SEJA NADA... PROCURAR ONDE E O QUE ? GOSTARIA SE ALGUEM SOUBESSE DE VERDADE QUE ME MOSTRASSE COMO ...
OBRIGADO
ALEX DIAS
Gostei + 0
06/02/2004
Aroldo Zanela
Desculpe pela resposta insuficiente, mas achei que você poderia encontrar pelo www.google.com.br (ferramenta de busca). Veja os documentos disponíveis abaixo:
http://www.epson.co.uk/support/manuals/manuals_pdf.htm
selecione ´ESC P Reference manual´
Você pode utilizar os comandos por meio do Write ou WriteLn, por exemplo:
WriteLn(Impressora, #27 + 15 + ´Modo campacto´); // ESC + Decimal 15
Os controles Esc /P foram padronizados pela Epson e utilizados pela maior parte da indústria de impressoras matriciais. No entando, se não funcionar para o seu modelo, tenho uma tabela da HP que posso disponibilizar se desejar.
Gostei + 0
07/02/2004
Alexdias
VC ME RESPONDEU ...
WriteLn(Impressora, #27 + 15 + ´Modo campacto´); // ESC + Decimal 15
MAS DEVO USAR O CODIGO ANTES DE QUE ? DEPOIS DE QUE ? 27 +15 FAZEM REFERENCIA A QUE ? IMPRESSORA SERIA ´LPT1´ NO MEU CODIGO ? + ´campacto´ SERIA O QUE ??? POIS VISITEI O SITE QUE VC RECOMENDOU LA TINHA VARIOS MANUAIS COM CERCA DE 150 PAGINAS CADA UM E TODOS EM INGLES , DESCULPE-ME MAS UMA VEZ , MAS GOSTARIA DE UM EXEMPLO SIMPLES E FUNCIONAL SE FOR POSSIVEL É CLARO !!!
DESDE JA AGRADECO A AJUDA E COMPREENCAO !!
ALEX DIAS :D :D
Gostei + 0
07/02/2004
Aroldo Zanela
Aqui tem um exemplo utilizando uma LX300:
procedure TfrmPDV.ImprimirPedido;
var Arquivo: TextFile;
Linha: String;
Sp: String;
GrandeTotal: Currency;
QtdeTotal: Double;
Imprimir: String;
begin
tbPedDetalhe.First;
Sp:= ´ ´;
GrandeTotal:= 0.00;// Total em dinheiro
QtdeTotal:= 0;// Quantidade de itens no total
AssignFile(Arquivo,Impressora);
ReWrite(Arquivo);
Write(Arquivo,#15); // Comprime
Imprimir:= PadR(´ORCAMENTO NUMERO: ´ + tbPedMestreNUMERO.AsString,51,´ ´) +
´DATA: ´ + DateToStr(Date) +
´ HORA: ´ + TimeToStr(Time);
WriteLn(Arquivo, Imprimir);
Houve um erro na mensagem anterior, pois o correto é apenas 15 para imprimir compactado. No exemplo acima, a variável pública Impressora pode se referenciar a LPT1 ou a uma impressora na rede.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)