Dovrei stampare i dati che sono contenuti in un listview!
ho fatto così:
Private Sub Command1_Click()
'rs.Close
cn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\Francesco\Desktop\lavori sw\overlight1.0\modifiche 30 novembre 2008\overlight97.mdb"
x = Me.ListView1.SelectedItem
SQL = "SELECT * FROM risultati WHERE idrisultati =" & x & ""
rs.Open SQL, cn1, adOpenKeyset, adLockOptimistic, adCmdText
Text7.Text = Replace(Text7.Text, "'", "_")
SQL1 = "SELECT * FROM Anagrafica WHERE cognome = '" & Text7.Text & "'"
rsa.Open SQL1, cn1, adOpenKeyset, adLockOptimistic, adCmdText

Dim AltezzaTesto As Double
Printer.ScaleMode = 7
Printer.DrawWidth = 10
'X,Y
'X = orizzontale
'Y = verticale

Printer.FontSize = 14
Printer.FontBold = True

Printer.CurrentX = 2.5 + (16 - Printer.TextWidth(Text7.Text)) / 2
Printer.CurrentY = 2 + (0.5 - Printer.TextHeight(Text7.Text)) / 2
Printer.Print Text7.Text

Printer.CurrentX = 3.5 + (16 - Printer.TextWidth(Text8.Text)) / 2
Printer.CurrentY = 2 + (0.5 - Printer.TextHeight(Text8.Text)) / 2
Printer.Print Text8.Text

Dim i As Integer
Dim ItemChecked As Boolean

ItemChecked = False

' Verifica l'esistenza di una selezione:
For i = 1 To Stampa.ListView1.ListItems.Count
If Stampa.ListView1.ListItems(i).Checked = True Then
ItemChecked = True
Exit For
End If
Next i

'Se ItemChecked = True (Selezione Attiva) stampa i soli records selezionati nella LV:
If ItemChecked = True Then
Printer.Font = "Times New Roman"
Printer.FontBold = False
Printer.FontUnderline = False
Printer.FontSize = 10
For i = 1 To Stampa.ListView1.ListItems.Count
If Stampa.ListView1.ListItems(i).Checked = True Then
Printer.FontBold = True
Printer.Print Space(12) & "N° Trattamento .... : " & Stampa.ListView1.ListItems(i).Text
Printer.FontBold = False
Printer.Print Space(24) & "Data ...... : " & Stampa.ListView1.ListItems(i).ListSubItems(3).Text
Printer.Print Space(24) & "Zona : " & Stampa.ListView1.ListItems(i).ListSubItems(4).Text
Printer.Print Space(24) & "Nr. trattamenti : " & Stampa.ListView1.ListItems(i).ListSubItems(5).Text
Printer.Print Space(24) & "Nr. flash : " & Stampa.ListView1.ListItems(i).ListSubItems(6).Text
Printer.Print Space(24) & "Livello emissione : " & Stampa.ListView1.ListItems(i).ListSubItems(7).Text
Printer.Print Space(24) & "Sigla Cliente : " & Stampa.ListView1.ListItems(i).ListSubItems(8).Text
Printer.Print Space(24) & "Operatore .... : " & Stampa.ListView1.ListItems(i).ListSubItems(9).Text & Chr(10)
End If
Next i
Printer.EndDoc
End If
cn1.Close
End Sub
però mi elenca i dati così:


N° Registrazione ....
Data di deposito ......
Proponente .....:
Parte ....
vorrei che mi elencasse i dati così:


N° Registrazione Data di deposito Proponente N° Registrazione Parte
1 30/11/2008 ugo 5 Prova
2 01/12/2008 mario 8 prova
senza ripetere sempre


N° Registrazione Data di deposito Proponente N° Registrazione Parte
come posso fare?

Grazie