Dim report As Stampa.ReportDocument
        report = New Stampa.ReportDocument
        Try
            ' setting report .xml template
            ' non-absolute paths are used as relative to your application startup folder
            report.setXML(frmPrincipale.PercorsoCartellaReport & "\fattura.xml")

            report.DocumentName = "Fattura " & txtcliente.Text & " nr " & txtNrFatture.Text & " del " & txtdataFatture.Text


con il nome che assegni nel documeto a qualsiasi oggetto lo utilizzi per passagli il testo che vuoi

ciao
ilario




          
             'aggiungi i dati fattura
            report.AddText("cliente", txtcliente.Text.ToUpper)
            report.AddText("indirizzo", txtindirizzo.Text.ToUpper)
            report.AddText("cap", Txtcap.Text.ToUpper)
            report.AddText("città", txtcitta.Text.ToUpper)
            report.AddText("pv", txtpv.Text.ToUpper)

            report.AddText("altroindirizzo", txtAltroIndirizzo.Text)

            report.AddText("nr", txtNrFatture.Text)
            report.AddText("data", txtdataFatture.Text)

            report.AddText("cf", txtcf.Text.ToUpper)
            report.AddText("pi", txtpi.Text.ToUpper)
            report.AddText("pagamento", txtpagamenti.Text.ToUpper)
            report.AddText("trasportatore", txtTrasportatore.Text.ToUpper)

            'disegna le singole righe fattura

            Dim ListTable As New DataTable("tabellafattura")

            ListTable.Columns.Add(New DataColumn("articolo"))
            ListTable.Columns.Add(New DataColumn("descrizione"))
            ListTable.Columns.Add(New DataColumn("um"))
            ListTable.Columns.Add(New DataColumn("qt"))
            ListTable.Columns.Add(New DataColumn("prezzo"))
            ListTable.Columns.Add(New DataColumn("sc"))
            ListTable.Columns.Add(New DataColumn("iva"))
            ListTable.Columns.Add(New DataColumn("totale"))

            Dim riga As Integer

            'aggiungi riga vuota
            Dim newRowvuota As DataRow = ListTable.NewRow()
            newRowvuota("articolo") = ""
            ListTable.Rows.Add(newRowvuota)

            For riga = 0 To lswdettaglio.Items.Count - 1


                ' With lswLista
                With lswdettaglio

                    Dim newRow As DataRow = ListTable.NewRow()
                    'articolo
                    newRow("articolo") = .Items(riga).SubItems(1).Text()
                    'descrizione
                    newRow("descrizione") = .Items(riga).SubItems(2).Text()
                    'um
                    newRow("um") = .Items(riga).SubItems(3).Text()
                    'qt
                    newRow("qt") = .Items(riga).SubItems(4).Text()
                    'prezzo
                    newRow("prezzo") = .Items(riga).SubItems(5).Text()
                    'sc
                    If lswdettaglio.Items(RigaStampa).SubItems(6).Text <> "" AndAlso _
                    lswdettaglio.Items(RigaStampa).SubItems(6).Text.Replace("%", "") > 0 Then
                        newRow("sc") = .Items(riga).SubItems(6).Text()
                    End If
                    'iva
                    newRow("iva") = .Items(riga).SubItems(7).Text()
                    'totale
                    newRow("totale") = .Items(riga).SubItems(9).Text()

                    ' Add the row to the rows collection.
                    ListTable.Rows.Add(newRow)

                    Dim newRownote As DataRow = ListTable.NewRow()

                    'note
                    If lswdettaglio.Items(riga).SubItems(10).Text <> "" Then
                        newRownote("descrizione") = .Items(riga).SubItems(10).Text()
                    End If
                    ' Add the row to the rows collection.
                    ListTable.Rows.Add(newRownote)

                End With

            Next riga

            report.AddData(ListTable)

            ' disegna i spese e ....
            report.AddText("totmerce", txttotMerce.Text)

            If txtScontoTot1.Text.Replace("%", "") > 0 Then
                report.AddText("sc1", txtScontoTot1.Text)
            Else
                report.AddText("sc1", "")

            End If
            If txtscontoTot2.Text.Replace("%", "") > 0 Then
                report.AddText("sc2", txtscontoTot2.Text)
            Else
                report.AddText("sc2", "")

            End If
            If txtSpeseTrasporto.Text.Replace("€", "") > 0 Then
                report.AddText("trasporto", txtSpeseTrasporto.Text)
                report.AddText("ivatrasporto", txtivatrasporto.Text)
            Else
                report.AddText("trasporto", "")
                report.AddText("ivatrasporto", "")

            End If
            If txtAltreSpese.Text.Replace("€", "") > 0 Then
                report.AddText("spesebancarie", txtAltreSpese.Text)
                report.AddText("ivabanca", txtivaaltrespese.Text)
            Else
                report.AddText("spesebancarie", "")
                report.AddText("ivabanca", "")

            End If

            'disegna tabella imponibile
            Dim ListTableimponibili As New DataTable("tabellaimponibili")

            ListTableimponibili.Columns.Add(New DataColumn("imponibile"))
            ListTableimponibili.Columns.Add(New DataColumn("codiva"))
            ListTableimponibili.Columns.Add(New DataColumn("iva"))

            Dim rigaimponibili As Integer

            'aggiungi riga vuota
            Dim newRowvuotaImponibili As DataRow = ListTableimponibili.NewRow()
            newRowvuotaImponibili("imponibile") = ""
            ListTableimponibili.Rows.Add(newRowvuotaImponibili)

            For rigaimponibili = 0 To lswImponibili.Items.Count - 1


                ' With lswLista
                With lswImponibili

                    Dim newRowimponibili As DataRow = ListTableimponibili.NewRow()
                    'imponibile
                    newRowimponibili("imponibile") = .Items(rigaimponibili).SubItems(0).Text()
                    'cod(iva)
                    newRowimponibili("codiva") = .Items(rigaimponibili).SubItems(1).Text()
                    'iva
                    newRowimponibili("iva") = .Items(rigaimponibili).SubItems(2).Text()

                    ' Add the row to the rows collection.
                    ListTableimponibili.Rows.Add(newRowimponibili)

                End With

            Next
            report.AddData(ListTableimponibili)

            'calcola imponibile e iva
            Dim i As Integer
            Dim imponibile As Double = 0
            Dim iva As Double = 0

            For i = 0 To lswImponibili.Items.Count - 1
                imponibile += lswImponibili.Items(i).SubItems(0).Text
                iva += lswImponibili.Items(i).SubItems(2).Text
            Next

            ' disegna totali fattura
            report.AddText("imponibile", String.Format("{0,-10:C}", CDec(imponibile)))
            report.AddText("iva", String.Format("{0,-10:C}", CDec(iva)))
            report.AddText("totalefattura", txtTotFatture.Text.ToUpper)

            'anteprima
            frmAnteprima.Stampa(report)


        Catch ex As Exception
            ShowMessage(ex.Message)
        End Try