Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare su HTML

Salve a tutti! Dovrei fare un applicazione database che anziche'
stampare un report di access, ne faccia una sorta di pagina html o
qualcosa inviabile via email! Qualcuno puo' suggerirmi qualche idea?
Grazie mille!
Fabio C.



 qualcosa inviabile via email! Qualcuno puo' suggerirmi qualche idea?
I file HTML sono file di testo, xciň creati una pagina HTML (es con
FrontPage), vai su "Visualizza HTML" da IE e ti scrivi le righe su un file
.html creato con la Open da VB.
Spero di essere stato esaustivo.
Ciao.
Paolo

 ha scritto nel messaggio
news:631a0077.02061...@posting.google.com...

Crea un pagina html al volo ...
quale altro suggerimento ti aspetti ?


non so quanto sia possibile usare report di access in vb perciň passo(forse
qualche tool esterno ma molto probabilmente a pagamento).....
Perchč non crei un nuovo driver per la stampa su file? (magari uno che crea
pdf da spedire via email)
ciao

 ha scritto

v. sotto.
il js e' definito nell'header, che come il footer e' una (multi)stringa
pubblica.
hth, j.
Public Sub HtmlLista()
    Dim rs As Recordset
    Set rs = MainDB.OpenRecordset("xxx")
    rs.Index = "nome"
    Dim fName As String, fName2 As String, fShortName As String, fNum As
Long, sAttivo As String
    fName = App.Path & "\html\lista.html"
    fNum = FreeFile
    Open fName For Output As #fNum
    Print #fNum, hHeader
    Print #fNum, Now
    Print #fNum,
    With rs
        Do While Not .EOF
            fName2 = App.Path & "\\" & _
                "s" & CStr(!idsist) & "_" & CStr(!id) & ".html"
            fShortName = "/" & _
                "s" & CStr(!idsist) & "_" & CStr(!id) & ".html"
            Print #fNum, "<br>"
            Print #fNum, "<p><b><a href=javascript:pow('" & _
                "../" & fShortName & "'); onmouseover=" & Chr$(34) & _
                "window.status='Scheda relativa a: " & Replace(Trim(!nome),
"'", " ") & "'; return true" & _
                Chr$(34) & ">" & Trim(!nome) & _
                "</b></a>"
            Print #fNum, "<br><b>(" & !nomesist & ")</b>"
            sAttivo = IIf(!attivo, "SI", "NO")
            Print #fNum, "<br><b>Attivo: " & sAttivo & "</b>"
            Print #fNum, "<br>Indirizzo: " & Trim(!indirizzo) & ", " &
Trim(!cap) & "&nbsp;" _
                & Trim(!citta) & "  - " & Trim(!PV)
            Print #fNum, "<br>Tel: " & Trim(!tel)
            Print #fNum, "<br>Fax: " & Trim(!fax)
            If Len(Trim(!email)) > 0 Then
                Print #fNum, "<br>Email: <a href=mailto:" _
                & LCase(Trim(!email)) & ">" & LCase(Trim(!email)) & "</a>"
            Else
                Print #fNum, "<br>Email:"
            End If
            If Len(Trim(!web)) > 0 Then
                Print #fNum, "<br>Web: <a href=" _
                & LCase(Trim(!web)) & " target=_blank>" & LCase(Trim(!web))
& "</a>"
            Else
                Print #fNum, "<br>Web:"
            End If
            Print #fNum, "<br>Resp.: " & Trim(!resp)
            Print #fNum, "<br>Ref. 1: " & Trim(!ref_1)
            Print #fNum, "<br>Ref. 2.: " & Trim(!ref_2)
            Print #fNum, "<br>Ref. 3.: " & Trim(!ref_3)
            Print #fNum, "<br>Ref. 4: " & Trim(!ref_4)
            If Len(Trim(!appunti)) > 0 Then _
                Print #fNum, "<br>Note: " & Trim(!appunti)
            Print #fNum,
            .MoveNext
            DoEvents
        Loop
    End With
    Print #fNum, hFooter
    Close #fNum
    rs.Close: Set rs = Nothing
    ShellExecute frmMain.hWnd, vbNullString, fName, vbNullString, "c:\",
SW_SHOWNORMAL
End Sub