Sub Printer_Connected (Success As Boolean)
If Success Then
printer.Initialize(cmp20.OutputStream)
printer.WriteLine(PrintBuffer.ToString)
printer.Flush
Msgbox("Printed!","")
printer.Close
cmp20.Disconnect
Else
If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then
StartPrinter
End If
End If
End Sub