Fórum Impressora nao corta papel no final da impressao! #229972
05/05/2004
0
Boa Noite Galera!!
Quando mando imprimir qualquer coisa usando o word a impressora imprimi e no final a mesma corta a folha.(folha tipo de fax) so é de 8cm de largura. (Mini Impressoras).
Mas quando mando imprimir através do QuickRep Delphi 5.0, o conteúdo é impresso perfeitamente, porém nao corta o papel. Se eu mandar outra impressão em seguida, a primeira e segunda impressão ficam juntas.
Existe algum comando que force a impressao no término de cada página executar o comando de Corte de Papel.
Impressora é Um Epson Modelo TM-T88III - Termica
Quando mando imprimir qualquer coisa usando o word a impressora imprimi e no final a mesma corta a folha.(folha tipo de fax) so é de 8cm de largura. (Mini Impressoras).
Mas quando mando imprimir através do QuickRep Delphi 5.0, o conteúdo é impresso perfeitamente, porém nao corta o papel. Se eu mandar outra impressão em seguida, a primeira e segunda impressão ficam juntas.
Existe algum comando que force a impressao no término de cada página executar o comando de Corte de Papel.
Impressora é Um Epson Modelo TM-T88III - Termica
Hightechnology
Curtir tópico
+ 0
Responder
Posts
27/02/2012
Alessandro Carlos
4.8.2 EPSON_Impressora_Cortar_Papel
Esta função corta o papel.
Sintaxe:
DWORD EPSON_Impressora_Cortar_Papel ( VOID )
Retornos:
FUNC_SUCESSO Operação realizada com sucesso.
FUNC_ERRO Erro durante a execução.
Exemplo em Delphi:
Retorno := EPSON_Impressora_Cortar_Papel ( );
Tem esta função também
======================
procedure CortaCupomVenda;
var
sl : TStringList;
begin
try
sl := TStringList.Create;
sl.Add(chr(ord(strtoint($1D)))+chr(ord(strtoint( $56)))+chr(ord(strtoint($01))));
sl.SaveToFile(COM1); //porta onde está conectada a impressora.
finally
sl.Free;
end;
end;
Esta função corta o papel.
Sintaxe:
DWORD EPSON_Impressora_Cortar_Papel ( VOID )
Retornos:
FUNC_SUCESSO Operação realizada com sucesso.
FUNC_ERRO Erro durante a execução.
Exemplo em Delphi:
Retorno := EPSON_Impressora_Cortar_Papel ( );
Tem esta função também
======================
procedure CortaCupomVenda;
var
sl : TStringList;
begin
try
sl := TStringList.Create;
sl.Add(chr(ord(strtoint($1D)))+chr(ord(strtoint( $56)))+chr(ord(strtoint($01))));
sl.SaveToFile(COM1); //porta onde está conectada a impressora.
finally
sl.Free;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)