Fórum Problema com WriteLn #206772
15/01/2004
0
[color=green:dadbd9e374]
[color=green:dadbd9e374]
estou usando isso como teste
[color=blue:dadbd9e374]
meu problema é como ajustar ´por posição´ usando WriteLn
que calculo doido tenho que fazer para que, se eu imprimir um ´A´
depois 10 espaços e outro ´A´na primeira linha. E depois eu imprimir dois ´WW´ depois 10 espaços e outro ´W´na segunda linha eles saiam na mesma posição??????
até agora eu por mim mesmo nao consegui!
e apesar de muitos me darem dicas....ainda nao consegui isso
peço..a ajuda de voces
Grato
Como usar fontes ´mono-espaçadas´?
Nao funciona
Write(f,#27+´2´);//sextos
Write(f,27+´0´);//oitavos
usandi isso é impresso um ´quadradinho´
[/color:dadbd9e374][color=green:dadbd9e374]
Como mandar imprimir ´comprimido´?
Nao funciona
Write(f, Chr(15));
[/color:dadbd9e374]estou usando isso como teste
[color=blue:dadbd9e374]
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
linha: array [0..9] of string[ 10 ];
i:integer;
begin
for i:=0 to 10 do
linha[i] := ´´;
AssignPrn(F);
ReWrite(F);
Write (f,chr(27) + ´W´);//espaçamento
Write(f, Chr(15));
Writeln(f);
linha[0]:= ´AAAAAAAAAA´;
linha[0]:= linha[0] + Space(50-length(linha[0]))+´AAAAA´;
linha[1]:= ´WWWWWWWWWW´;
linha[1]:= linha[1] + Space(50-length(linha[1]))+´WWWWW´;
linha[2]:= ´IIIIIIIIII´;
linha[2]:= linha[2] + Space(50-length(linha[2]))+´IIIII´;
for i:=0 to 3 do
writeln(f,linha[i]);
CloseFile(f);
end;
[/color:dadbd9e374]meu problema é como ajustar ´por posição´ usando WriteLn
que calculo doido tenho que fazer para que, se eu imprimir um ´A´
depois 10 espaços e outro ´A´na primeira linha. E depois eu imprimir dois ´WW´ depois 10 espaços e outro ´W´na segunda linha eles saiam na mesma posição??????
até agora eu por mim mesmo nao consegui!
e apesar de muitos me darem dicas....ainda nao consegui isso
peço..a ajuda de voces
Grato
Macario
Curtir tópico
+ 0
Responder
Posts
15/01/2004
Marconi
Eu imprimo Notas Fiscais em uma Matricial, e lá eu tenho que colocar as letras exatamente nas posições corretas.
WriteLn(F,chr(27)+´@´); reseta a máquina
WriteLn(F,chr(15)); // passa para 16,67 caracteres por polegada
WriteLn(F,chr(18)); // volta ao default que é 10 caracteres por polegada.
Mesmo espaços em branco ocupam o lugar de um caractere.
Para ajustar verticalmente tem outros comandos.
Todos são comandos ESC-P da Epson.
Se voce precisar de uma relação deles, me mande um email.
carlos_marconi@uol.com.br
Marconi
WriteLn(F,chr(27)+´@´); reseta a máquina
WriteLn(F,chr(15)); // passa para 16,67 caracteres por polegada
WriteLn(F,chr(18)); // volta ao default que é 10 caracteres por polegada.
Mesmo espaços em branco ocupam o lugar de um caractere.
Para ajustar verticalmente tem outros comandos.
Todos são comandos ESC-P da Epson.
Se voce precisar de uma relação deles, me mande um email.
carlos_marconi@uol.com.br
Marconi
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)