Inserisci nella tua form un componente WebBrowser (Libreria Microsoft Internet Control) e lo rendi invisibile. Poi utilizzando il metodo Navigate2 carichi la pagina e con il metodo execWB esegui la stampa del documento caricato. Per sapere se il documento è caricato puoi gestire l'evento NavigateComplete2.
Spero di essere stato abbastanza chiaro.codice:Dim Caricato As Boolean Private Sub Form_Load() WebBrowser1.Navigate2 ("c:\prova.htm") End Sub Private Sub Command1_Click() If Caricato Then WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER End If End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Caricato = True End Sub
Ciao![]()


Rispondi quotando