No creo que tengas mayor problema. El ImprimeDocumento lo cambias por
Código Delphi
[-]
ImprimeDocumento(PosicionInicial);
ImprimeDocumento(PosicionInicial + MedidaDeMediaCartilla);
TerminaDocumento();
es decir, no tienes que meterte con tus 8000 líneas, sólo cambiar el endoc de lugar y ponerle un parámetro a tu rutina.
Por cierto, ¿8000 líneas para imprimir? Pues ¿qué es? ¿El Don Quijote? Aunque no creo que quepa en media cuartilla
// Saludos