Fórum Relatório Personalizável!!! #262525

Ninguém pode me ajudar?

SOBE

[b:0406035f79][color=red:0406035f79]Notificação de Infração às Regras de Conduta :[/color:0406035f79][/b:0406035f79]

O uso do recurso SOBE ou semelhantes para colocar novamente o tópico à vista deve ser limitado a no máximo uma vez por dia.

Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].

Colega, eu fiz algo mais ou menos parecido com o que vc quer. No QR.
Fiz assim:

3 Band
- Title
- ColumnHeader
- Detail

No Title
- 1 QrLabel onde será um subtitulo
- 1 QRLabel que irá pegar o nome do relatório
- 1 QrLabel que indica a página atual
- 1 QrLabel que indica a data e hora da impressão.
O Nome Do Relatório e o SubTitulo podem ser alterados pelo usuário.

No ColumnHeader
- 1 QrLabel
Onde, vou acrescentando o nome dos campos que irei mostrar.
Por exemplo, se eu fosse mostrar o codigo e o nome de um cliente:
QRLabel.CapTion := Ajusta(´codigo´, 5)
QrLabel.Caption := QrLabel.Caption + ajusta(´ nome´,60)

No Detail
- 1 QrLabel
Identico ao QrLabel, só que somo o valor dos campos
QRLabel.CapTion := Ajusta(qrTmp.DataSet.FieldByName(´codigo´).AsString, 5)
QrLabel.Caption := QrLabel.Caption + ajusta(qrTmp.DataSet.FieldByName(´nome´).asstring,60);


A função ajusta citada acima, apenas preenche com espaços o que faltar para o tamanho do campo.