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,
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
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 122 guests