Estou usando o seguinte código para imprimir um ticket:
Assignfile (print, 'LPT1');
rewrite(print);
writeLn(print, #15 + '========================================');
WriteLn(print, #15 + 'TICKET: ' + IntToStr(maxmovdia));
WriteLn(print, '');
WriteLn(print, #15 + 'PLACA: ' + placaent);
WriteLn(print, #15 + 'DATA: ' + DateToStr(dataent) + ', ' + LabelDiaSemana.Caption);
WriteLn(print, #15 + 'HORA: ' + TimeToStr(horaent));
WriteLn(print, #15 + 'TIPO: Mensalista');
WriteLn(print, '');
closefile(print);
Problema: o primeiro ticket imprime normal. Os próximos imprimem somente depois de fechar o sistema.
Quem puder me ajudar, agradeço.