If System.IO.File.Exists(System.Environment.ExpandEnvironmentVariables("%temp%") & "\OptionImpression.dat") Then ' Le fichier existe remettre automatiquement les options d'impression 'If System.Is64BitOperatingSystem Then ' Seulement avec FrameWork 4.0 et plus If System.IO.Directory.Exists(System.Environment.ExpandEnvironmentVariables("%windir%") & "\SysWOW64") Then Shell("rundll32 " & System.Environment.ExpandEnvironmentVariables("%windir%") & "\SysWOW64\printui.dll,PrintUIEntry /Sr /n """ & _NomImprimanteTemporaire & """ /a " & System.Environment.ExpandEnvironmentVariables("%temp%") & """\OptionImpression.dat""", vbNormalFocus) Else Shell("rundll32 printui.dll,PrintUIEntry /Sr /n """ & _NomImprimanteTemporaire & """ /a " & System.Environment.ExpandEnvironmentVariables("%temp%") & """\OptionImpression.dat""", vbNormalFocus) End If ' Supprimer le fichier temporaire Try System.IO.File.Delete(System.Environment.ExpandEnvironmentVariables("%temp%") & "\OptionImpression.dat") Catch ex As Exception ' Ne rien faire End Try Else ' Impossible de remettre automatiquement les options d'impression, le faire mauellement MessageBox.Show("Vous avez préalablement modifié les préférences de l'imprimante " & _NomImprimanteTemporaire & Environment.NewLine & Environment.NewLine & _ "Malheureusement il m'est impossible de remettre les préférences originales, vous deverez le faire manuellement avec la fenêtre de préférence qui suit ce message", _ "Récupération des options d'impression", MessageBoxButtons.OK, MessageBoxIcon.Information) Shell("rundll32 printui.dll,PrintUIEntry /e /n""" & _NomImprimanteTemporaire & """", vbNormalFocus) End If
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
Shell("rundll32 printui.dll,PrintUIEntry /e /n""NomDeLImprimanteParDefaut""", vbNormalFocus)
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.