Todo me funcione en principio bien, o sea, si mando a imprimir anda bien, si rediseño el reporte en tiempo de ejecución también me anda bien, pero si entro al programa y diseño el reporte, guardo y luego quiero imprimir me da problema, sin embargo si cierro el programa y lo vuelvo a ejecutar y quiero imprimir me muestra las modificaciones que hice.
El codigo para imprimir es el siguiente:
delphi
procedure Tfpaciente.MImprimirClick(Sender: TObject); begin frReport1.LoadFromFile('Reporte.lrf'); frReport1.PrepareReport; frReport1.ShowReport; end;
El evento getvalue del componente report (el reporte tiene variables)
delphi
procedure Tfpaciente.frReport1GetValue(const ParName: String; var ParValue: Variant); var titulo, doctor, pie: string; begin with TIniFile.Create('inicio.ini') do try titulo := ReadString('informe', 'titulo', 'Informe de plestimografia'); doctor := ReadString('informe', 'doctor', 'doctor'); pie := ReadString('informe', 'pie', 'Pie del informe'); finally free; end; if ParName='nombre' then ParValue:= 'juancito'; if ParName= 'edad' then ParValue:= '21'; if ParName='altura' then ParValue:= '2.0'; if ParName= 'peso' then ParValue:= '90'; if ParName='imcadq' then ParValue:= '20'; if ParName= 'riadq' then ParValue:= '21'; if ParName='siadq' then ParValue:= '2.0'; if ParName='imccalc' then ParValue:= '20'; if ParName= 'ricalc' then ParValue:= '21'; if ParName='sicalc' then ParValue:= '2.0'; if ParName='titulo' then ParValue:= titulo; if ParName= 'doctor' then ParValue:= doctor; if ParName='pie' then ParValue:= pie; end;
En otro formulario cuando uno presiona en el boton diseñar
delphi
procedure TFConfinforme.bdisenarClick(Sender: TObject); begin frReport1.LoadFromFile('Reporte.lrf'); frReport1.DesignReport; end;
El error que me aparece cuando primero diseño y guardo (ahí no pasa nada) luego cierro la ventana que tiene el boton diseñar y luego voy a imprimir, es el siguiente:
Project pzvasc raised exception class 'External: SIGSEGV'
Además note que no siempre aparece el error, por ejemplo, entro diseño, guardo, hago preview, salgo, me voy a la otra ventana y no aparece el error cuando mando a imprimir.
Pero si entro, diseño, guardo, salgo sin hacer preview, me voy a imprimir me da el error.
Bueno no se que hacer , desde ya muchas gracias.