Segunda impresión me imprime en blanco

[Manuel]

Te sugiero que nos des unos algunos datos más como por ejemplo:

versión delphi
reporteador nombre y versión
componentes, etc.
una explicación más detallada de lo que estas haciendo.

[Leto_Atreides]

Versión : Delphi 5

No imprimo a través de ningún Report.

Componentes?? Estándares

El procedimiento es el siguiente:

begin
LlenarFIni; //recojo los datos del fichero de texto
FMenu.IMP.PrimeraLinea:=PrimeraLinea; //Aqui empieza la impresion
FMenu.IMP.UltimaLinea:=UltimaLinea; //Fin de pagina
FMenu.IMP.EntreLineas:=EntreLineas; //Distancia entre líneas
if not error then begin
try
Printer.Orientation:=poPortrait;
Printer.BeginDoc;
BD.Tpresupuestos.close;
BD.TPresupuestos.open;
......
......
FMenu.Imp.Texto(ccli,fcli,'Cliente'); //por ejemplo
.....
.....

IMPRIMO DIRECTAMENTE SOBRE EL CANVAS DE LA IMPRESORA

procedure TImpresion.Texto(x,y:real;c:string);
begin
Printer.Canvas.TextOut(LocX(x),LocY(y),c);
end;

function TImpresion.LocX(x:real):longint;
begin
LocX:=Round(x*(ancho/horiz)*10);
end;

function TImpresion.LocY(y:real):longint;
begin
LocY:=Round(y*(largo/vert)*10);
end;

procedure TImpresion.Texto(x,y:real;c:string);
begin
Printer.Canvas.TextOut(LocX(x),LocY(y),c);
end;

[fedelphi]

En vez de hacer un BD.TPresupuestos.Close/Open haz solo un BD.Tpresupuestos.First. Suerte.
Fede

[Manuel]

no veo el EndDoc.

[Leto_Atreides]

Ya he solucionado el problema. La solución era otra.
Gracias encarecidamente por vuestra ayuda
Feliz navidad a todos

[dec]

Hola,

Empezado por Leto

Ya he solucionado el problema. La solución era otra.

Es una buena costumbre, te parecerá, dejar constancia de la solución, puesto que puede alguna vez servirle a otra persona. ¿No crees?

Ah, y feliz navidad a ti también.