Fórum Impressora quot;comendoquot; uma impressão dentro de um lo #170725
22/07/2003
0
Olá pessoal,
Estou com o seguinte problema:
Tenho um loop com uma quantidade X de registros. A cada registro, eu executo o seguinte código:
.
.
AssignPrn(f);
Rewrite(f);
Writeln(F,vLinhadados,#13);
CloseFile(F);
.
.
Só que, algumas vezes, o primeiro registro do loop passa pelo código(eu fiz um LOG) só que A IMPRESSORA NÃO IMPRIME, somente os demais.
É uma EPSON LQ 2170, local.
Eu pensei em conseguir algum código que me permitisse verificar o retorno desta impressão. Alguém tem alguma idéia ou já passou por isso?
Obrigada,
Mirela :cry:
Estou com o seguinte problema:
Tenho um loop com uma quantidade X de registros. A cada registro, eu executo o seguinte código:
.
.
AssignPrn(f);
Rewrite(f);
Writeln(F,vLinhadados,#13);
CloseFile(F);
.
.
Só que, algumas vezes, o primeiro registro do loop passa pelo código(eu fiz um LOG) só que A IMPRESSORA NÃO IMPRIME, somente os demais.
É uma EPSON LQ 2170, local.
Eu pensei em conseguir algum código que me permitisse verificar o retorno desta impressão. Alguém tem alguma idéia ou já passou por isso?
Obrigada,
Mirela :cry:
Mirela
Curtir tópico
+ 0
Responder
Posts
22/07/2003
Lindomar.des
Mirela,
segue um exemplo de como verificar se a impressora está ok.
function impressoraOk:boolean;
const
prnstint: byte = $17;
stRq: byte = $02;
prnNum:word = 0; {0 para LPT1, 1 para LPT2, etc}
var
nResult: byte;
begin
asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult, ah;
end;
impressoraOk := (nResult and $80) = $80;
end;
não consegui entender porque vc usa #13 no final?
Writeln(F,vLinhadados,13);
você manda direto para a impressora?
eu costumava usava gerar um arquivo texto e depois copiá-lo para a porta da impressora (LPT1,2,3...). com isso não prendo a aplicação.
Lindomar.
segue um exemplo de como verificar se a impressora está ok.
function impressoraOk:boolean;
const
prnstint: byte = $17;
stRq: byte = $02;
prnNum:word = 0; {0 para LPT1, 1 para LPT2, etc}
var
nResult: byte;
begin
asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult, ah;
end;
impressoraOk := (nResult and $80) = $80;
end;
não consegui entender porque vc usa #13 no final?
Writeln(F,vLinhadados,13);
você manda direto para a impressora?
eu costumava usava gerar um arquivo texto e depois copiá-lo para a porta da impressora (LPT1,2,3...). com isso não prendo a aplicação.
Lindomar.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)