Caso alguém precise, econtrei uma solução,não sei se é a melhor, ams serviu pra mim.
Criei um script vbs da seguinte forma:
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\software\Microsoft\Internet Explorer\main\Print_Background", "yes", "REG_SZ"
Set obj2Shell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom", "0.31496", "REG_SZ"
Set obj3Shell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\margin_left", "0.31496", "REG_SZ"
Set obj4Shell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\margin_right", "0.31496", "REG_SZ"
Set obj5Shell = CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\margin_top", "0.31496", "REG_SZ"