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.
