Fórum Problema com impressora #221984

Tenho uma rotina que imprime em uma impressora MP20 da bematech através de um memo, só que quando mando imprimir a impressora fica pulando papel. Alguem sabe uma maneira de fazer a impressora parar de imprimir quando acabar o memo

procedure TForm1.Button1Click(Sender: TObject);
var
i, altura : Integer;
sMemo : String;
begin

With Printer do
begin
Title:= ´Imprimindo memo´;
BeginDoc;
With Canvas do
begin
altura := TextHeight(´A´);
for i := 1 to Memo1.Lines.Count do
begin
sMemo := Memo1.Lines[I];
TextOut(1, (i - 1) * Altura, sMemo);
end;
end;
EndDoc;
end;
end;
[/code]