Buscar por:

Relatório no quick report sem tabela

Código

// Ás vezes é necessário emitir um relatório sem um banco de dados, um StringGrid por exemplo.

// É possivel forçar a repetição do band Detail sem  ligar o Quick Report a uma tabela.

// O formulário de relatório possui um evento chamado OnNeedData. Nesse evento existe uma variável chamada MoreData: Boolean. Basta fazer uma rotina para que essa variável seja true. Enquanto ela for true será repetido o Detail.

// Exemplo

Moredata := Indice < Lista.RowCount;

// Ou seja Ela vai receber true enquanto um índice que foi criado for menor do que a quantidade de linhas de um StringGrid que foi passado como parâmetro.

// Para incrementar a variável Indice. Basta colocar no evento afterPrint do Detail

  Indice := Indice + 1;