Imprimir

[Guest Matos]

Olá,

estou fazendo impressões de umas consultas usando as configurações da LPT1, só que tenho um problema.

não sei como faço pra ela pular de pagina automática e usar um tipo te fonte (DRAF CONDENSED)

VEJA MEU EX:

procedure TImpCli.Impressao;

Var

I:Integer;

Arq:TextFile;

Cliente,Endereco,Cidade,Data,UF:String;

Begin

Cliente:=QryImpCliNome.Value;

Endereco:=QryImpCliEndeteco.Value;

Cidade:=QryImpCliCidade.Value;

Uf:=QryImpCliUf.Value;

Data:=QryimpcliData_Atend.AsString;

AssignFile(Arq,'LPT1');

ReWrite(Arq);

WriteLn(Arq,'');

WriteLn(Arq,'-----------------------------------------------------------------');

WriteLn(Arq,'');

WriteLn(Arq,'');

WriteLn(Arq,Cliente);

WriteLn(Arq,Endereco);

WriteLn(Arq,Cidade+' '+UF);

WriteLn(Arq,'');

CloseFile(Arq);

end;

[D31v1d1]

opa beleza esses tempo tava com o mesmo problema mais consegui uma ajuda e ai vai um código para ver se poder ser util

function
CI(c:char):string;//configura impressora
var I : string;
begin
case c of
'p' : I:=#12; //pula a pagina
'n' : I:=#18; //imprimir no modo normal
'c' : I:=#15; //imprimir no modo condensado
'g' : I:=#27#14; //imprimir grande
't' : I:=#27#97#1; //alinhamento centralizado
'd' : I:=#27#97#0; //alinhamento esquerda
'e' : I:=#27#20;//cancelar o modo grande
'r' : I:=#27#71;//imprimi negrito
'o' : I:=#27#72;//cancela o negrito
end;
result := I;
end;

exemplo:
Writeln(texto,CI('n')); // texto negrito. 

abs

[Guest Matos]

Kara, Valeu mesmo!

Fico grato tá!!

vou tentar depois eu te respondo... abraço

Matos

[Guest Guest]

Acho que não estou sabendo onde devo copiar esses cógigos que você me deu.

function
CI(c:char):string;//configura impressora
var I : string;
begin
case c of
'p' : I:=#12; //pula a pagina
'n' : I:=#18; //imprimir no modo normal
'c' : I:=#15; //imprimir no modo condensado
'g' : I:=#27#14; //imprimir grande
't' : I:=#27#97#1; //alinhamento centralizado
'd' : I:=#27#97#0; //alinhamento esquerda
'e' : I:=#27#20;//cancelar o modo grande
'r' : I:=#27#71;//imprimi negrito
'o' : I:=#27#72;//cancela o negrito
end;
result := I;
end;

exemplo:
Writeln(texto,CI('n')); // texto negrito. 

Dentro que que eu fiz, será que poderia me ajudar? o que eu preciso mesmo, é que ele quebre a página. OBRIGAGO

procedure TImpCli.Impressao;
Var
I:Integer;
Arq:TextFile;
Cliente,Endereco,Cidade,Data,UF:String;

Begin
Cliente:=QryImpCliNome.Value;
Endereco:=QryImpCliEndeteco.Value;
Cidade:=QryImpCliCidade.Value;
Uf:=QryImpCliUf.Value;
Data:=QryimpcliData_Atend.AsString;
AssignFile(Arq,'LPT1');
ReWrite(Arq);
WriteLn(Arq,'');
WriteLn(Arq,'-----------------------------------------------------------------');
WriteLn(Arq,'');
WriteLn(Arq,'');
WriteLn(Arq,Cliente);
WriteLn(Arq,Endereco);
WriteLn(Arq,Cidade+' '+UF);
WriteLn(Arq,'');
CloseFile(Arq);
end;