Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Componente ASPPDF

  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2006
    Messaggi
    209

    Componente ASPPDF

    Salve,

    sto utilizzando il componente asppdf della Persits.
    Ho una pagina asp in cui leggo i dati dal mio db e li trasformo in un pdf.
    Creo con il componente una tabella con 5 colonne e vorrei quando cambia un codice
    stampare una riga con solo 2 celle dove visualizzare la stringa "TOTALE" più l'importo
    con un font diverso.
    Non so come fare, l'unica cosa che mi riesce è stampare la stringa e l'importo nella seconda e terza cella della tabella.

    Come posso fare?

    Posto il codice

    Grazie

    Set PDF = Server.CreateObject("Persits.Pdf")
    Set Param = PDF.CreateParam
    Set TextParam = PDF.CreateParam
    Set Doc = PDF.CreateDocument
    Set Font = Doc.Fonts.LoadFromFile("e:\windows\fonts\arial.ttf ")

    ' Creo una tabella con una riga, e 5 colonne x il dettaglio

    Set Table = Doc.CreateTable("width=550; height=20; Rows=1; Cols=5; Border=1; CellSpacing=-1; cellpadding=2 ")
    Table.Font = Doc.Fonts("Arial")
    Set HeaderRow = Table.Rows(1)
    Param.Set("alignment=center")

    %>
    <FONT STYLE="font-family: Arial; font-size: 12pt; font-weight: bold;">
    <%
    With HeaderRow
    .BGColor = &H90F0FE
    .Cells(1).AddText "ORDINE", Param
    .Cells(2).AddText "QUANTITA", Param
    .Cells(3).AddText "PREZZO", Param
    .Cells(4).AddText "PRDODOTTO", Param
    .Cells(5).AddText "FUNZIONE", Param
    End With
    %>
    </FONT>
    <%

    ' Imposto la larghezza delle colonne
    With Table.Rows(1)
    .Cells(1).Width = 50
    .Cells(2).Width = 60
    .Cells(3).Width = 120
    .Cells(4).Width = 200
    .Cells(5).Width = 100
    End With

    param.Set "expand=true" ' expand cell vertically

    strfnzrd=""
    totprzfnz=0

    Do While Not rs.EOF
    Set Row = Table.Rows.Add(15) ' row height
    param.Add "alignment=center"
    Row.Cells(1).AddText trim(Rs("ORDINE")), param
    Row.Cells(2).AddText trim(Rs("QUANTITA")), param
    param.Add "alignment=center"
    Row.Cells(3).AddText Rs("PREZZO"), param
    Row.Cells(4).AddText trim(Rs("PRODOTTO")), param
    param.Add "alignment=center"
    Row.Cells(5).AddText trim(Rs("FUNZIONE")), param

    if strfnzrd <> trim(Rs("FUNZIONE"))and strfnzrd <> "" then
    Set Row = Table.Rows.Add(20)
    param.Add "alignment=center"
    Row.Cells(2).AddText "TOTALE", param
    Row.Cells(3).AddText totprzfnz, param
    totprzfnz = 0
    else
    totprzfnz = totprzfnz + Rs("PREZZO")
    end if
    strfnzrd=trim(Rs("FUNZIONE"))

    rs.MoveNext
    Loop

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,563
    In una tabella le celle non spariscono, posso al limite essere accorpate con la rowspan (HTML).
    Cioè se ci sono 5 colonne sempre 5 celle devi considerare, eventualmente accorpandole.

    Roby

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2006
    Messaggi
    209
    Grazie per la risposta

    quindi se la mia istruzione è

    Row.Cells(2).AddText "TOTALE", param

    qual'è la sintassi per dirgli di considerare le prime due celle

    Row.Cells(1).Colspan(2) ?

  4. #4
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,563
    Non lo so, dovresti leggere la documentazione se esiste qualcosa di simile al rowspan oppure lasciale vuote (con uno spazio).

    Roby

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.