Como usar guilhotina de impressora termica?

Delphi

11/05/2008

Pessoal,
tenho de fazer um programa q imprima um texto e no final , mande a impressora cortar o papel(usando a guilhotina da impressora).

O problema é q não sei como mandar um comando para ela cortar o papel! Será q alguem sabe?

A impressora q tenho aki para testar é uma Olivetti PRT 100, é uma impressora termica. E para imprimir, envio o texto para a porta LPT1.


Exemplo de como mando imprimir:

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
begin
AssignFile(F, ´LPT1´);
Rewrite(F);

WritelnF,´===============================´);
Writeln(F,Memo1.Text);
Writeln(F,´===============================´);
Writeln(F,´´);

CloseFile(F);
end;

Desde já agradeço.


Tiagofxz

Tiagofxz

Curtidas 0

Respostas

Paulo

Paulo

11/05/2008

Bem, eu não conheço esta impressora, mas praticamente todas as impressoras semelhantes, vêm com uma ´tabelinha´ de status, onde lá vc pode pegar os comandos para ela, entre eles acredito, que esteja o de ´chamar a guilhotina´. Acho que deve baixar o manual de desenvolvedor da impressora e dar uma olhada lá.


GOSTEI 0
Valmor Reblin

Valmor Reblin

11/05/2008

Postei algo ali mas vai la
function CortaPapel(const Epson:Boolean; Porta:String):Boolean;varCorte : TStringList ;begin   try     Corte := TStringList.Create;    if Epson then       Corte.Add(chr(ord(strtoint('29')))+chr(ord(strtoint( '+86')))+chr(ord(strtoint('+01'))))    else       Corte.Add(chr(ord(strtoint('$1D')))+chr(ord(strtoint( '$56')))+chr(ord(strtoint('$01'))));     Corte.SaveToFile(Porta);    finally     Corte.Free;   end;end;


So tenho um problema ainda que é : Se a impressora esta ligada a outro micro. Se souber ajuda.
GOSTEI 0
Nigro

Nigro

11/05/2008

Já ví uns 2 ou 3 casos onde a guilhotina não estava habilitada, em todas as oportunidades, tiveram que fazer uma intervenção técnica, para habilitar. Detalhe, sempre com Bematech
GOSTEI 0
José

José

11/05/2008

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR