Imprimer à partir d'un hta
J'aimerais imprimer le rendu final d'un fichier .htm contenant les infos système d'une machine récupéré du hta...
J'ai inscrit dans le hta
Code:
<input type="button" value="Imprimer" Onclick="print()" ;>
Par contre bien que ça imprime bien...il imprime aussi le fond (background) du hta. J'ai essayé d'y ajouter une feuille de style pour l'impression mais sans succès.
Sachant que mon fichier s'affiche a même le hta et est enregistrable
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Function LogFile( x )
'Log results to a file
Dim objFS, objTestLog, objWMIService
On Error Resume Next
if x<>"" Then
Set wshNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
MyFile = InputBox ("Nom du fichier (xxx.htm)","Save " & strComputer & " as File","C:\Users\"& WshNetwork.UserName &"\desktop\" & strComputer & ".htm")
if MyFile <> "" then
Set ObjFS = CreateObject("Scripting.FileSystemObject")
Set ObjTestLog = objFS.CreateTextFile(MyFile)
ObjTestLog.WriteLine x
Set ObjFS = Nothing
Set ObjTestLog = Nothing
If err.number <> vbEmpty then Msgbox "Erreur: Répertoire peut ne pas exister ou vous n'avez pas les permissions (Erreur " & err.number & ")",48
end if
end if
End Function |
Donc en gros j'aimerais imprimer le htm mais à partir du hta... :P
Merci pour l'aide
