Escribir una etiqueta por código

iDestination(iPrinter,"Imprimiendo Documento de venta")
iCreateFont(1, 9, iNormal, "Times New Roman", iBlack, 0)

iPrint(iFont(1)+iXPos(0,False)+ "Vendedor: " )
iPrint(iFont(1)+iXPos(0,False)+"Fecha: "+ " Hora: "+TimeSys() )
iPrint(iFont(1)+iXPos(0,False)+"Cliente: " )
iPrint(iFont(1)+iXPos(0,False)+"NIF: " )
iPrint(iFont(1)+iXPos(0,False)+"Direccion: ")
iPrint()

iEndPrinting()