Primer programa: LeeEncabezadoReporte.Prg
*************
* Este programa lee y guarda en el archivo Encabezado_Reporte los valores del encabezado
* del reporte seleccionado antes de ser modificado por el generador de reportes de VFP bajo Win7
* Esta información deberá ser restaurada con el programa GuardaEncabezadoReporte una vez
* que se hagan los cambios necesarios.
CLOSE DATABASES
USE GETFILE("FRX") IN 0 ALIAS Informe
SELECT Informe
Largo=AFIELDS(Campos)
COPY STRUCTURE TO Encabezado_Reporte
USE Encabezado_Reporte IN 0 ALIAS Valores
SELECT Valores
APPEND BLANK
FOR I=1 TO ALEN(Campos,1)
Campo1="Informe."+Campos(I,1)
Campo2=FIELD(I,1)
REPLACE &Campo2 WITH &Campo1
NEXT I
close data
*****************************************************
Segundo Programa:GuardaEncabezadoReporte
****************************
* Este programa guardará nuevamente el encabezado del reporte seleccionado
* una vez modificado desde el generador de reportes.
* La razón: Win7 no permite configurar impresora y se perdería la configuración
* original para el reporte.
* Antes de ejecutar éste programa, se debió guardar la información del encabezado
* en el archivo encabezado_reporte con el programa LeeEncabezadoReporte.prg
CLOSE DATABASES
USE Encabezado_Reporte IN 0 ALIAS Valores
USE GETFILE("FRX") IN 0 ALIAS Informe &&Informe en el que se guardarán los datos...
SELECT Valores
Largo=AFIELDS(Campos)
Si=""
ACCEPT "Totalmente Seguro? (Sí=999)" TO Si
IF Si="999" &&Para evitar cualquier error por digitación involuntaria....
SELECT Informe
GO TOP &&Primer Registro..
FOR I=1 TO ALEN(Campos,1)
Campo1="Valores."+Campos(I,1)
Campo2=FIELD(I,1)
REPLACE &Campo2 WITH &Campo1
NEXT I
ENDIF
CLOSE DATA
****************************************
Comentarios sobre la versión: Versión 1 (4)
=Sys(1037)
podras seleccionar una impresora diferente a la predeterminada y tu seleccion sera tomada para el reporte
y le indicas con que impresora trabajara el reporte