Sub Printer_ConnectedToPrint (Success As Boolean)
    Dim borrado As String
'    When is connect
    If Success Then
        Printer.ClearBuffer
        Printer.AddBuffer_WriteLine(Main.RComercio)
        Printer.AddBuffer_WriteLine(Main.RTienda)
        Printer.AddBuffer_WriteLine(Main.RUbica)
        Printer.SendBufferToPrinter
        Printer.ClearBuffer
        Printer.AddBuffer_WriteLine(" ")
        Printer.AddBuffer_WriteLine(RFecha)
        Printer.SendBufferToPrinter
        Printer.ClearBuffer
        Printer.AddBuffer_BarCode(Right("000000"&NumberFormat(FOLIOPEDIDO,0,0),7))
        Printer.SendBufferToPrinter
        Printer.ClearBuffer
        Printer.AddBuffer_WriteLine("NOTA : "&Right("000000"&NumberFormat(FOLIOPEDIDO,0,0),7))
        Printer.AddBuffer_WriteLine("TOTAL  :  $ "&NumberFormat2(ptotal, 0, 2, 2, True))
        Printer.SendBufferToPrinter
        Printer.ClearBuffer
        Printer.AddBuffer_WriteLine(" ")
        Printer.AddBuffer_WriteLine(" ")
        Printer.SendBufferToPrinter
        Printer.ClearBuffer
        Printer.Close
    end if