Boa Noite Pessoal
Estou com um problema na emiss�o de relat�rios pelo Delphi
Quando mando emitir um relat�rio "Via DOS", ou seja, direto para LPT1
Mais especificamente, quando mando emitir uma Nota Fiscal.
Est�o sumindo alguns caracteres na hora da emiss�o
J� descobri que � s� mudar na BIOS do computador
para porta EPP ou ECP, que esse problema desaparece
S� que surge um outro problema: A Emiss�o fica muito Lenta
Algu�m saberia uma forma de corrigir esse problema ???
Segue abaixo um trecho da rotina que utilizo para emiss�o
Desde j� agrade�o
Abra�o
Ademir
--------------------------------------------------------------------------------
Esta � a Rotina que utilizo para emiss�o
Procedure Say(Nlin,Ncol: Integer; Var Linha: Integer; Var Arquivo: Text;Texto:
Variant);
var
X:Integer;
begin
Write(Arquivo,#13);
If Nlin<>Linha then
Begin
for X:=Linha to (Nlin-1) do
begin
WriteLn(Arquivo,'');
Linha:=Linha+1;
end;
end;
If Ncol>0 then
begin
For X:=0 to Ncol do
if x>0 Then
begin;
Write(Arquivo,' ');
end;
end;
Write(Arquivo,Texto);
end;
--------------------------------------------------------------------------------
e uso da seguinte forma (Aqui vai s� unm trecho do relat�rio):
vPag:=0;
vLin:=0;
vLinha:=0;
AssignFile(ArqPrn,'LPT1')
ReWrite(ArqPrn);
vPag:=vPag+1;
Say(0,000,vLinha,ArqPrn,Chr(15));
Say(0,000,vLinha,ArqPrn,'');
Say(1,000,vLinha,ArqPrn,'TRANCAFIO');
Say(1,114,vLinha,ArqPrn,'Emissao:');
Say(1,123,vLinha,ArqPrn,Date);
Say(2,000,vLinha,ArqPrn,'Relatorio (Cliente - Simples): '+lblCliente.Caption);
Say(2,114,vLinha,ArqPrn,'Pagina.:');
Say(2,123,vLinha,ArqPrn,vPag);
Say(3,000,vLinha,ArqPrn,StringOfChar('*',133));
Say(4,000,vLinha,ArqPrn,' DATA PEDIDO CLIENTE PRODUTO
COR MEDIDA QUANT. UN PREVISTA ');
Say(5,000,vLinha,ArqPrn,'---------- ------ ----------------
------------------------------ ------------ ------ -------- --
----------');
CloseFile(ArqPrn);
[As partes desta mensagem que n�o continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos:
http://br.yahoo.com/info/utos.html
