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

Code:
    Dim strPrint As Integer

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