WebBrowser - Guardar Como...

[rojobe55]

Hola a Todos
Los totoriales o explicaciones que encuentro en internet sobre el componente WebBrowser son para una ejecución básica. Estoy utilizando es control en un vb6 para, por supuesto, hacer una visualización de un sitio en internet.

Necesitaría poder hacer un Guardar o Guardar Como y una Impresión de la página visitada.

O si alguien conoce un lugar con un tutorial bastante avanzado que contenga ejemplos o explicaciones de esto.

Desde ya muchas gracias.
Saludos.

[rojobe55]

Bueno, esperando alguna respuesta de alguien he probado el siguiente codigo:

Private Sub mnuFileImprimir_Click()
On Error Resume Next

Dim eQuery As OLECMDF 'retorna el valor del QueryStatusWB

eQuery = WebBrowser1.QueryStatusWB(OLECMDID_PRINT) 'trae el estado del comando imprimir
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, "", "" 'Ok?
Else
MsgBox "El comando Imprimir está momentaneamente deshabilitado."
End If
End If
If Err.Number <> 0 Then MsgBox "Error en el comando Imprimir: " & Err.Description

End Sub

Que encontré buscando por el SDK y lo pongo por si alguien tiene curiosidad. Pero sucede que me da el siguienteerror

"Permiso denegado" creo que el error 70.

He probado el codigo con otros OLE como el OLECMDID_PROPERTIES y funciona perfectamente, tambien funciona el OLECMDID_SAVEAS para guardar como (que fué el origen del post, ya solucionado!)

Pero: ¿por que no funciona la impresión?????
Alquien tiene alguna idea.
Saludos.

[jc_moty]

Para imprimir el contenido del webBrowser, basta con esta linea:

Código:

brwBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT

[rojobe55]

Gracias jc_moty, si funciona, no se porque en la estructura que armé para controlar el estado del comando me da error, pero solito y pelado si funciona.

Gracias y
Saludos.