Discussion :

[lenny32]

Bonjour a toutes et à tous,

Je doit faire un logiciel qui me permet d'imprimer une page web dynamiquement.
Le problème c'est que quand je l'imprime il me mais le nom du fichier et le nombre de page dans le header, et le titre et la date dans le footer.
Je souhaiterai trouver un moyen de les supprimer pour avoir un rendu plus professionnel.

Merci pour votre aide.

Lenny32

PS:J'ai VS 2008 express

[lenny32]

Le moyen de faire sa est de modifier le registre.
J'ai recopier et modifier le script pour qu'il change la valeur et qu'il la remette pares l'impression. le code est :
il faut importer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Imports Microsoft.Win32
Imports System

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    'supprime le footer et le header dans le registre
    Public Sub SetIEOn()
        Dim strKey As String = "Software\Microsoft\Internet Explorer\PageSetup"
        Dim bolWritable As Boolean = True
        Dim strName As String = "footer"
        Dim oValue As Object = ""
        Dim oKey As RegistryKey = Registry.CurrentUser.OpenSubKey(strKey, bolWritable)
        oKey.SetValue(strName, oValue)
        strName = "header"
        oValue = ""
        oKey = Registry.CurrentUser.OpenSubKey(strKey, bolWritable)
        oKey.SetValue(strName, oValue)
        oKey.Close()
    End Sub

Et le code pour remettre le registre d'origine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    'Remet normal le registre
    Public Sub SetIEOff()
        Dim strKey As String = "Software\Microsoft\Internet Explorer\PageSetup"
        Dim bolWritable As Boolean = True
        Dim strName As String = "footer"
        Dim oValue As Object = "&u&b&d"
        Dim oKey As RegistryKey = Registry.CurrentUser.OpenSubKey(strKey, bolWritable)
        oKey.SetValue(strName, oValue)
        strName = "header"
        oValue = "&w&bPage &p of &P"
        oKey = Registry.CurrentUser.OpenSubKey(strKey, bolWritable)
        oKey.SetValue(strName, oValue)
        oKey.Close()
    End Sub