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