Segunda impresión me imprime en blanco
 

Un saludo a todos los fanáticos del delphi

Mi problema es el siguiente:
He realizado una aplicación que permite crear presupuestos. Cuando imprimo uno no hay problema. Después de imprimirlo y sin salir del formulario quiero que me ofrezca la posibilidad de que me permita imprimir si se han cambiado los datos. El problema es que me imprime en blanco porque no me coge los parámetros de impresión. Es decir que no lee el fichero de texto .ini que indica las coordenadas donde deben imprimirse cada una de las líneas. (Creo que ese es el problema puesto que devuelve una hoja en blanco)
¿Cuál puede ser el problema?
Gracias

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.

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;

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

no veo el EndDoc.

Hola,

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. ;)