LOCAL lcOldPrinter,lcNewPrinter DECLARE INTEGER SetDefaultPrinter IN winspool.drv; STRING pszPrinter lcOldPrinter = SET("Printer",2) && Imprimante Windows par défaut lcNewPrinter GETPRINTER() && Nouvelle imprimante SetDefaultPrinter(lcNewPrinter) && On force le changement REPORT FORM ..... =SetDefaultPrinter(lcOldPrinter) && On revienr à l'ancienne imprimante
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question*Avec Windows Scripting. LOCAL lcOldPrinter,lcNewPrinter lcOldPrinter = SET("Printer",2) && Imprimante Windows par défaut SET PRINTER TO NAME (lcOldPrinter) && J'ai complété cette ligne pour positionner sur l'imprimante par défaut lcNewPrinter = GETPRINTER() && Nouvelle imprimante ws = CREATEOBJECT("WScript.Network") ws.SetDefaultPrinter(lcNewPrinter) && On force le changement d'imprimante ws.SetDefaultPrinter(lcOldPrinter) && On revienr à l'ancienne imprimante