Saludos Cordiales Colegas!!!
Alguien ha hecho algo con la clase de Tom Groeger (TCRW.PRG) para pasar parametros de impresion como numero de copias, seleccionar impresora por defecto, etc.??
O si alguien sabe del Crystal Report 8 Report Desinger Component (RDC) que es un SDK
Saluddos y Exitos
Daniel Rivas
No seu PRG coloque apos (PEOpenPrintJob )
PrinterSetup()
cPrinter := PrnGetName()
cDriver := PrnGetDrive()
cPort := PrnGetPort()
oCrw:SetPrinter32( cDriver, cPrinter, cPort)
No tCRW.PRg coloque isto:
MESSAGE SetPrinter32 METHOD SetPrinter32_
+
Method SetPrinter32_( cDriver, cPrinter, cPort)
LOCAL nRet
LOCAL cFarProc := "PESelectPrinter"
cFarProc := GetProcAdd( ::hDll, cFarProc,.T.,_INT,LONG,LPSTR ,LPSTR,LPSTR,LONG)
nRet := CallDll( cFarProc, ::nJobHandle, cDriver , cPrinter , cPort ,0 )
/ Coloque isto antes do imprimicrystal()
PrinterSetup()
cPrinter := PrnGetName()
cDriver := PrnGetDrive()
cPort := PrnGetPort()
Memvar->oCrw:SetPrinter32( cDriver, cPrinter, cPort)
/
RETURN self
Saludos Cordiales Ronaldo!!!
Gracias por tu respuesta, estare probando... gracias..
Saludos y Exitos
Daniel Rivas