Auntenticar em impressoras 40 colunas Mecaf
Pessoal estou com um problema com as impressoras de 40 colunas Mecaf, qdo vamos autenticar um documento (um recebimento por exemplo) após autenticar a bobina é ejetada até ser desligada a impressora para parar, tendo que ser enrrolada a mão.
Os comandos estão de acordo com exemplos da propria fabricante.
Os comandos estão de acordo com exemplos da propria fabricante.
Renato
Curtidas 0
Respostas
Edilcimar
11/06/2008
qual o método que você está utilizando para imprimir?
GOSTEI 0
Renato
11/06/2008
Antes de mais nada eu queria dizer ´Autenticar´
Edilcimar o comando para autenticar é este :
ret := CPModoDoc;
if( ret = 0 ) then LModoDoc := TRUE; // Passou para o modo Doc
Aviso.Caption := ´´;
if( LModoDoc ) then
if( InsDoc ) then begin
if op = ´AV´ then begin // Se for venda a vista
if edVVista.Text <> ´0,00´ then begin
ptexto := Pchar(´[ ´+NReg+´ ] ´+op+´-´+lbNumUsuario.Caption+´ * ´+datetostr(date())+´ * ´+edVVista.Text);
end else begin
ShowMessage(´ PREENCHA O VALOR A VISTA ´);
edVVista.SetFocus;
end;
end;
´NReg´ é o numero do registro no caixa
Autentica ,mas depois começa e ejetar a Bobina da impressora
Edilcimar o comando para autenticar é este :
ret := CPModoDoc;
if( ret = 0 ) then LModoDoc := TRUE; // Passou para o modo Doc
Aviso.Caption := ´´;
if( LModoDoc ) then
if( InsDoc ) then begin
if op = ´AV´ then begin // Se for venda a vista
if edVVista.Text <> ´0,00´ then begin
ptexto := Pchar(´[ ´+NReg+´ ] ´+op+´-´+lbNumUsuario.Caption+´ * ´+datetostr(date())+´ * ´+edVVista.Text);
end else begin
ShowMessage(´ PREENCHA O VALOR A VISTA ´);
edVVista.SetFocus;
end;
end;
´NReg´ é o numero do registro no caixa
Autentica ,mas depois começa e ejetar a Bobina da impressora
GOSTEI 0
Edilcimar
11/06/2008
segundo a sua informação,
Aqui ela está imprimindo como um DOC, portanto irá imprimir o tamanho da folha difinida como padrão windows. Pergunto onde é que você sai do modo DOC?
Eu não trabalho com mecaf, mas creio que o princípio básico é válido para qualquer impressora.
if( ret = 0 ) then LModoDoc := TRUE; // Passou para o modo Doc
.Aqui ela está imprimindo como um DOC, portanto irá imprimir o tamanho da folha difinida como padrão windows. Pergunto onde é que você sai do modo DOC?
Eu não trabalho com mecaf, mas creio que o princípio básico é válido para qualquer impressora.
GOSTEI 0