printing problem

[dimava]

hi, I'm getting an error poiting to X saying that it is no defined:

    Dim strPrint As Integer

    For z = 0 To ListPrintOut.ListCount - 1
        strPrint = strPrint & ListPrintOut.List(z) & vbCrLf
    Next z
    Printer.Print strPrint
    Printer.EndDoc

[crptcblade]

I don't see an X, dimava...???

[dimava]

sorry, I meant z

[crptcblade]

well, the obvious question is : Do you have "Option Explicit" at the top of your code?

[dimava]

ok, thanks

[crptcblade]

no problem, sometimes I forget to declare the variables for my For...Next loops, too

[dimava]

now it points to this line:

strPrint = strPrint & ListPrintOut.List(z) & vbCrLf

having error 13 'over flow'

but this is only when there are items in the list box

[crptcblade]

strPrint is declared as an Integer, that's why, it should be a String...

[dimava]

yep, thanks