Imprimir Coluna de StringGrid
Dúvida:
Como faço para imprimir uma coluna inteira de um StringGrid no Quick Report, mas do jeito de coluna msm, ou seja, um em baixo do outro??
Consigo fazer isso colocando o comando ´StringGrid1.Cols[i].DelimitedText´, onde i é o número da coluna q quero, mas dae os dados saem um na frente do outro.
Alguém sabe como faço isso??
Obrigado!!
Abraços!!
Como faço para imprimir uma coluna inteira de um StringGrid no Quick Report, mas do jeito de coluna msm, ou seja, um em baixo do outro??
Consigo fazer isso colocando o comando ´StringGrid1.Cols[i].DelimitedText´, onde i é o número da coluna q quero, mas dae os dados saem um na frente do outro.
Alguém sabe como faço isso??
Obrigado!!
Abraços!!
Karrasco
Curtidas 0
Respostas
Joaoshi
12/03/2008
Colega, se o QuickReport (QR) não estiver ligado a um DataSet:
- Crie uma variavel no formulário para guardar o número de linhas impressas (nLinhas).
- No evento BeforePrint do QR zere a variavel (nLinhas:=0);
- No evento [b:f4c8cd1964]OnNeedData[/b:f4c8cd1964] do QR:
MoreData:= (nLinhas <= StringGrid1.RowCount);
- Crie no QR uma banda do tipo (BandType) = [b:f4c8cd1964]Detail[/b:f4c8cd1964]
- Na banda inclua um [b:f4c8cd1964]QrLabel[/b:f4c8cd1964] (que recebera o dado do StringGrid) pode ser um [b:f4c8cd1964]QrMemo[/b:f4c8cd1964]
- No evento BeforePrint da Banda:
QrLabel.Caption := StringGrid1.Cells[NumeroColuna,nLinhas];
Inc(nLinhas);
Qualquer dúvida, é só postar.
Espero ter ajudado.
- Crie uma variavel no formulário para guardar o número de linhas impressas (nLinhas).
- No evento BeforePrint do QR zere a variavel (nLinhas:=0);
- No evento [b:f4c8cd1964]OnNeedData[/b:f4c8cd1964] do QR:
MoreData:= (nLinhas <= StringGrid1.RowCount);
- Crie no QR uma banda do tipo (BandType) = [b:f4c8cd1964]Detail[/b:f4c8cd1964]
- Na banda inclua um [b:f4c8cd1964]QrLabel[/b:f4c8cd1964] (que recebera o dado do StringGrid) pode ser um [b:f4c8cd1964]QrMemo[/b:f4c8cd1964]
- No evento BeforePrint da Banda:
QrLabel.Caption := StringGrid1.Cells[NumeroColuna,nLinhas];
Inc(nLinhas);
Qualquer dúvida, é só postar.
Espero ter ajudado.
GOSTEI 0
Caus2
12/03/2008
Fi o procedimento mas quando imprimir fica imprimindo o ultimo registro repetidamente e o numero de paginas fica aumentando sem parar e agora? como resolver?
GOSTEI 0