Seleccionar Impresora en Crystal Reports... para Rene

[Andrés González]

Tengo implementado el crystal reports en mis programas y funciona perfectamente, el problema es que me coge la impresora por defecto, he mirado el codigo y no tiene una funcion Function PESelectPrinter cosa que antes en la version de 16 bits tenia:

Code: Select all

Function PESelectPrinter(hPrintJob,cDriver,cPrinter,cPort,cDevMode)
	local cDLL := GetProcAddress(hLibCRPE, "PESelectPrinter", "Pascal", "bool", "int,str,str,str,str")
RETURN (CallDLL(cDLL,hPrintJob,cDriver,cPrinter,cPort,cDevMode))

Ahora sencillamente parece que hace una llamada en el objeto que la crea pero, no me aparece en el visor de impresion:

Code: Select all

    ELSE

       ::PEOpenEngine()

       // Create JobInfo Class
       //
       STRUCT ::oJobInfo

         MEMBER structSize   AS WORD  LEN 2
         MEMBER NumRecords   AS DWORD LEN 4
         MEMBER NumSelect    AS DWORD LEN 4
         MEMBER NumPrinted   AS DWORD LEN 4
         MEMBER DispPageN    AS WORD  LEN 2
         MEMBER LatestPage   AS WORD  LEN 2
         MEMBER StartPageN   AS WORD  LEN 2
         MEMBER PrintEnded   AS BOOL  LEN 2

       ENDSTRUCT

       ::oJobInfo:SetMember(1, 22 )

       STRUCT ::oTabLocation

         MEMBER structSize   AS WORD   LEN 2
         MEMBER location     AS STRING LEN 256

       ENDSTRUCT

       ::oTabLocation:SetMember(1, 258 )

       // Create oWinOptions Class

       STRUCT ::oWinOptions

         MEMBER structSize             AS WORD  LEN 2
         MEMBER hasGroupTree           AS BOOL  LEN 2
         MEMBER CanDrillDown           AS BOOL  LEN 2
         MEMBER hasNavigationControls  AS BOOL  LEN 2
         MEMBER hasCancelButton        AS BOOL  LEN 2
         MEMBER hasPrintButton         AS BOOL  LEN 2
         MEMBER hasExportButton        AS BOOL  LEN 2
         MEMBER hasZoomControl         AS BOOL  LEN 2
         MEMBER hasCloseButton         AS BOOL  LEN 2
         MEMBER hasProgressControls    AS BOOL  LEN 2 
         MEMBER hasSearchButton        AS BOOL  LEN 2  //<<<<<<< Desde aqui estos botones no aparecen.
         MEMBER hasPrintSetupButton    AS BOOL  LEN 2
         MEMBER hasRefreshButton       AS BOOL  LEN 2

       ENDSTRUCT

A que se debe esta anomalia, puede ser por la version CRW 8.5 en español, que la dll no tenga esos botones.

Gracias a todos de antemando

A que se de