With this code
Dim s, s1, s2, s3, s4, s5, s6 as string
Dim index,i as integer
Dim x,y as integer
x = 100
y = 30
index = ListBox1.ListCount - 1
i = 0
For i = 0 to index
s1 = ListBox1.Cell(i,1)
s2 = ListBox1.Cell(i,2)
s3 = ListBox1.Cell(i,3)
s4 = ListBox1.Cell(i,4)
s5 = ListBox1.Cell(i,5)
s6 = ListBox1.Cell(i,6)
s = s1 + " - " + s2 + " - " + s3 + " - " + s4 + " - " +
s5 + " - " + s6
//MsgBox(s)
Dim g As Graphics
g = OpenPrinterDialog()
If g<> Nil then
g.DrawString s , (x, y)
End if
y=y + 10
next
i want to print the entire listbox, but i print only one string for
page and i want to print all string that one page contain...
Mattia Mariglioni
Ai sensi e per effetti della Legge sulla tutela della riservatezza
personale (D. Lgs. 196/03), questa mail รจ destinata unicamente alle
persone sopra indicate e le informazioni in essa contenute sono da
considerarsi strettamente riservate. E' proibito leggere, copiare,
usare o diffondere il contenuto della presente missiva senza
autorizzazione.Se avete ricevuto questo messaggio per errore, siete
pregati di distruggerlo immediatamente.
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
