SetPrintDefault no funciona en Windows 10 (solucionado)

[AngelSalom]

Hola amigos, estoy usando la función SetPrintDefault para establecer la impresora por defecto en el sistema. Hasta ahora bien pero con Windows 10 y la última actualización no tiene efecto.
¿Alguna solución?
Gracias,

[AngelSalom]

Sigo, en server 2008,2012 con usuarios que no son propietarios del ejecutable tampoco. ¿Me huelo un tema de permisos?
El código de SetPrintDefault parece que modifica valores del registro ...

Code: Select all | Expand

function SetPrintDefault( cModel )

   local cDriver := StrToken( GetProfString( "Devices", cModel, "" ), 1, "," )
   local cPort   := StrToken( GetProfString( "Devices", cModel, "" ), 2, "," )

   WriteProfString( "Windows", "Device", cModel + "," + cDriver + "," + cPort )

return nil

[karinha]

Mira se ayuda:

Code: Select all | Expand

FUNCTION DefaultPrinter()

   LOCAL nPrn, nRet

   /*
   GetPrintDC( GetActiveWindow() )

   SetDefaultPrinter( PRNGETNAME() )
   */

   nRet := PrinterSetUp()

   nPrn := PrnGetName()

   IF( nRet # 0 )

      SetDefaultPrinter( PRNGETNAME() )

      MsgInfo( OemToAnsi( "Aten‡Æo Usu rio:                        " )+CRLF+ ;
               OemToAnsi( "Sua Impressora DEFAULT(PadrÆo) ‚:       " )+CRLF+ ;
                        ( "-> " + nPrn                               ),      ;
               OemToAnsi( "Sua Impressora DEFAULT(PadrÆo) ‚...     " ) )

   ELSE

      MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                         " )+CRLF+ ;
               OemToAnsi( "VERIFIQUE SUA IMPRESSORA SE ESTµ LIGADA. " )+CRLF+ ;
               OemToAnsi( "OU SE ESTµ INSTALADA CORRETAMENTE...     " )+CRLF+ ;
               OemToAnsi( "TEM ALGUMA COISA ERRADA COM A IMPRESSORA?" )+CRLF+ ;
               OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...          " ),      ;
               OemToAnsi( "VERIFIQUE SUA IMPRESSORA SE ESTµ LIGADA. " ) )

      RETURN( .F. )

   ENDIF

RETURN NIL
 



[AngelSalom]

Magnífico karinha, sustituyendo SetPrintDefault por SetDefaultPrinter se solucionó.