|
Supongo que al objeto Tprinter le mandas las líneas mediante un bucle y que de antemano ya sabes cuantas entran por página, entonces suponiendo que entren 50 pones un contador de líneas y cuando llegue a cincuenta te saltas la opción de imprimir de manera que solamente avanzas y así hasta el final, al dar vuelta las hojas harías lo mismo pero te saltarías las impares.
En pseudocódigo:
nLinea:=0;
While not eof do
nLinea:=nLinea +1
if nLinea < 51
Imprimir linea
end;
Avanza linea
if nLinea > 100 then
nLinea:=0;
Para las pares
> 51
Bueno es una idea general
Un Saludo.
|