I have solve my problem with the line
Dim g As Graphics
g = OpenPrinterDialog()
out of cicle for
Thanks
Mattia Mariglioni
c/o Faccincani & Gandolfi s.r.l.
Viale Mentana 92/A
43100 Parma
Tel. ++39 0521 229420
Fax. ++39 0521 229415
Cell. ++39 348 8729206
web: www.faccincani.it
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.
Il giorno 28/set/06, alle ore 16:34, Terry Ford ha scritto:
On Sep 28, 2006, at 7:27 AM, Terry Ford wrote:
Change the order of your code lines to the following.
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
Dim g As Graphics
g = OpenPrinterDialog()
If g<> Nil then
For i = 0 to index
Is the first column empty? If s1 is for the first column remember
that column 0 is the first one.
s1 = ListBox1.Cell(i,0)
s2 = ListBox1.Cell(i,1)
s3 = ListBox1.Cell(i,2)
s4 = ListBox1.Cell(i,3)
s5 = ListBox1.Cell(i,4)
s6 = ListBox1.Cell(i,5)
s = s1 + " - " + s2 + " - " + s3 + " - " + s4 + " -
" + s5 + " - " + s6
g.DrawString s , x, y
Your Brackets are unnecessary
y=y + 10
next
End If
You might also want to adjust y=y+10 to something a bit larger.
That's assuming you are not using a very small font.
Terry
_______________________________________________
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>
_______________________________________________
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>
