Discussion :

[Debra]

Bonjour,

je souhaites imprimer, via mon prog VB, des pages Html à la volée ... donc j'utilise l'API Windows ShellExecute, de cette manière :

Code :

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

1
2
3
4
5
6
7
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_HIDE = 0
 
...
 
ShellExecute 0, "print", StrFileName, "", "", SW_HIDE

Donc, de ce côté, tous fonctionne bien, par contre voiçi mon problème:

Pour chaque impression, la fenêtre de propriété de l'impression s'affiche.
Et j'aimerais imprimer directement sans passer par cette fenêtre, si quelqu'un à une idée

[fanchic29]

Je ne sais pas si tu cherche à imprimer la source des pages ou leur représentation dans un explorateur. Mais si c leur représentation, tu peut te servir du composant WebBrowser et la commande suivante, qui permet d'imprimer sans avoir une boite de dialogue. Par contre avec cette commande , tu imprime sir l'imprimante par defaut
Utilise la commande :

Code :

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

1
2
 
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0

[Debra]

merci bien,

Je souhaites effectivement imprimer la page html, et non pas le source.

En attendant, j'ai regardé de plus prés le composant WebBrowser, et donc .ExecWB OLECMDID_PRINT est effectivement ce que je recherchais...
par contre, en testant la méthode, j'ai un message d'erreur:

La méthode ExecWB de l'objet "IWebBrowser2" a échoué

j'ai juste fais un .navigate StrFilename avant, bizarre ... en relancant le prog à partir de .ExecWB, là ca lance bien l'impression.
J'ai ajouté un .refresh après le .navigate, ca fais tjs pareil. Pourtant ma page de test fais 2ko, ca doit pas être long à charger ...

je continue mes recherches...

[fanchic29]

Je ne sais pas si ton pb vient de là, mais si tu veut être sur que ton chargement est fini tu peut te servir de cette evenement :

Code :

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

1
2
3
4
    Private Sub AxWebBrowser1_DownloadComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWebBrowser1.DownloadComplete
        AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT)
        Me.Hide()
    End Sub

[Debra]

cool, ca fonctionne...

THX