Como usar guilhotina de impressora termica?
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.
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
Curtidas 0
Respostas
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
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.
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
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é
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