Discussion :

[Invité]

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 :

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

<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 :

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

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...

Merci pour l'aide

[Invité]

Finalement je me suis dépanné...

Code :

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

<input type="button" onclick="printArea('DataArea')" Value="Imprimer" ;>