Private Sub BTPort_Connected (Success As Boolean)
Dim s As String
Dim Block As Int = 1024
If Success Then
Printer.Initialize2(BTPort.OutputStream, "windows-1251")
Do While Contents.Length > 0
If Contents.Length > Block Then
s = Contents.SubString2(0, Block)
Contents = Contents.SubString(Block)
Else
s = Contents
Contents = ""
End If
Printer.Write(s)
Printer.Flush
Sleep
Loop
Printer.Close
BTPort.Disconnect
Else