Problema com impressão no delphi

estou usando o seguinte código pra fazer uma impressão no delphi com firemonkey

AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to frmMain.mmPrint.Lines.Count - 1 do
writeln(prn, frmMain.mmPrint.Lines[i]);
finally
CloseFile(Prn);
end;
except on E:exception do
ShowMessage('Ocorreu um erro ao tentar imprimir! Erro: ' + e.Message);
end;

Porem ao imprimir cada linha do mmPrint(um TMemo) sai em uma pagina diferente, alguém sabe como resolver?