Fórum Quebra de pagina no ritch edit #195686

Gostaria de saber como imprimir em Rich edit sendo que quebre a pagina quando for necessario, estou usando o seguinte código:

procedure TFrmGer.ImpStrings(Strings: TStrings);
var
Prn: TextFile;
i: Word;
begin
if PrintDialog1.Execute then
Begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count -1 do
Begin
writeln(Prn, Strings.Strings[i]);
* writeln(prn, #12);
End;
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg(´Erro na impressão do texto.´, mtError, [mbOK], 0);
end;
End;
end;




Me deram uma dica para colocar Writeln(prn, 12);

Coloquei como está acima *
mas quando rodo o sistema ele lê uma linha imprime e pula a folha, lê a segunda linha imprime e pula a folha e assim por diante.

O que devo fazer para imprimir a pagina inteira indentificar a quebra de linha e pular para a proxima linha?


Se alguém puder me ajudar eu agradeço...