Creo que la cosa podria ser mejor asi...
Código:
HASAR1.DatosCliente('MAIER RENE', '20058013421', TIPO_CUIT,RESPONSABLE_INSCRIPTO, 'Direccion');
Hasar1.Puerto = 1;
Hasar1.Comenzar;
Hasar1.TratardeCancelarTodo;
HASAR1.AbrirComprobanteFiscal( TICKET_FACTURA_A );
HASAR1.PrecioBase:=false;
HASAR1.ImprimirItem('Nombre del producto', 1, 10.00, 21.00,0); //impuesto interno si no tiene debe ser cero. Sino ver Formula K
hasar1.Subtotal(false);
HASAR1.ImprimirPago('Efectivo',10.00);
hasar1.CerrarComprobanteFiscal;
haser1.finalizar;
Creo que con esto deberia funcionar. Avisame cualquier cosa.