Seleccionar Impresora en Crystal Reports... para Rene
Posted: Tue Jun 06, 2006 11:11 am
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:
Ahora sencillamente parece que hace una llamada en el objeto que la crea pero, no me aparece en el visor de impresion:
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
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))
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
Gracias a todos de antemando
A que se de