Preview...

[Ricardo Ramirez E.]

Hola Foro

Pq a veces no puede generar los metafiles...=? en un preview de la tprinter ? sale um error de creacion de archivo.

Fw2.5, XPP Service Pack 2. harbour 0.45

Es un problema de xp ?


Gracias.!

[Antonio Linares]

Ricardo,

Modifica printer.prg de esto modo:

Code: Select all  Expand view

    #ifndef __CLIPPER__
       AAdd( ::aMeta, ::cDir + cTempFile( "\", "emf" ) )
       ::hDCOut := CreateEnhMetaFile( ::hDc,ATail( ::aMeta ), ::cDocument )  //jlcr
    #else
       AAdd( ::aMeta, ::cDir + cTempFile( "\", "wmf" ) )
       ::hDCOut := CreateMetaFile( ATail( ::aMeta ) )
    #endif