Probando los ejemplos de Samples\report compruebo que antes de salir el preview, sale una ventana (FiveWin Report/Building Page xx). Eso no ocurre en mis aplicaciones.
A veces es conveniente que salga esta ventana, porque cuando tiene que preparar muchas páginas el programa se queda "esperando".
¿Que tengo que hacer para que me salga esta ventana de Building Page?.
#include "FiveWin.ch"
function Main()
USE Customer
Browse()
USE
return nilAntonio,
La "cosa" ocurre cuando la página tiene alguna imagen. Me imagino que habrá algun conflicto entre freeimage.dll y preview.dll. Cuando es un listado sin imagenes no hay problemas.
Manuel,
Cuantas páginas tiene el listado ? En principio no tiene porque haber ningún conflicto entre esas DLLs.
Antonio,
Tiene 28 páginas (pero pueden ser muchas mas). Se trata de listar las facturas entre dos fechas. Cada factura tiene su correspondiente imagen. Tarda un minuto en cargar (el disco duro tirita) y luego sale el preview sin salir la ventanita de "building page".
function cTempFile( cPath, cExtension ) // returns a temporary filename
local cFileName
static cOldName
DEFAULT cPath := "", cExtension := ""
if ! "." $ cExtension
cExtension = "." + cExtension
endif
while File( cFileName := ( cPath + LTrim( Str( GetTickCount() ) ) + cExtension ) ) .or. ;
cFileName == cOldName
end
cOldName = cFileName
return cFileNameManuel,
Puedes proporcionar un ejemplo pequeño y autocontenido que lo reproduzca ? gracias
Antonio, te acompaño un pequeño ejemplo (te lo envio por email para que lo compruebes):
///////////////////////////////////////////////////////////////////////////////
function Main()
LOCAL oDlg, oImage
DEFINE DIALOG oDlg FROM 0, 0 TO 10, 50 ;
TITLE "IMPRESION LENTA Y SIN BUILDING PAGES"
@ 0, 0 IMAGE oImage SIZE 0, 0 OF oDlg
oImage:Progress( .f. )
@ 2, 12 BUTTON "Imprimir" SIZE 50,10 OF oDlg ;
ACTION PrintImage( oImage )
ACTIVATE DIALOG oDlg CENTER
oDlg:End()
return nil
static func PrintImage( oImage )
local oPrn, nVeces
oImage:LoadBmp("eva.jpg")
PRINT oPrn NAME "Image Printing" PREVIEW
FOR nVeces = 0 TO 10
PAGE
oPrn:SayImage( 0, 0, oImage, 2000, 3000 )
ENDPAGE
NEXT
ENDPRINT
return nil
Manuel,
La caja de diálogo de "building page..." es sólo usada en la Clase TReport, no en una impresión normal. PodrÃamos ver la forma de que la clase TPrinter también la usase, de forma parametrizable.
En cuanto a la velocidad, si has modificado cTempFile() como te hemos indicado, es totalmente correcta. Aqui hemos modificado el ejemplo para crear 100 hojas y las crea muy rápido.
static func PrintImage( oImage )
local oPrn, nVeces, oDlg, oSay
DEFINE DIALOG oDlg TITLE "Generando la impresión" SIZE 200, 100
@ 1, 1 SAY oSay PROMPT "Página número 0"
ACTIVATE DIALOG oDlg NOWAIT CENTER
oImage:LoadBmp("eva.jpg")
PRINT oPrn NAME "Image Printing" PREVIEW
FOR nVeces = 0 TO 100
oSay:SetText( "Página número " + AllTrim( Str( nVeces + 1 ) ) )
PAGE
oPrn:SayImage( 0, 0, oImage, 2000, 3000 )
ENDPAGE
NEXT
oDlg:End()
ENDPRINT
return nilManuel,
Y aqui tienes un video para que veas a la velocidad a la que se generan las 100 páginas:
Antonio,
Ahora si funciona correctamente. El problema estaba en cTempFile.
Muchas gracias por todo.