SoloCodigo

A ver si te vale algo así:

Public Function PrtFile(ByVal HtmlF As String) As Boolean
   
    Dim intFileN As String, str1 As String
   
    On Error GoTo Error_PrtHtmlF
   
    intFileN = FreeFile
   
    Open HtmlF For Input As intFileN
   
    Do Until EOF(intFileN)
        Line Input #intFileN, str1
        Printer.CurrentX = 0
        Printer.Print str1
    Loop
   
    Printer.EndDoc
   
    PrtFile = True
   
Salir_PrtHtmlF:
   
    On Error Resume Next
   
    Close #intFileN
   
    Exit Function
   
Error_PrtHtmlF:
   
    MsgBox "(" & Err.Number & ") " & Err.Description, vbCritical, "Imprimir html"
   
    Resume Salir_PrtHtmlF

End Function

Lo que yo quiero hacer es la pagina web. no el codigo html.

Gracias