Fórum Imprimir Coluna de StringGrid #355253
12/03/2008
0
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
Curtir tópico
+ 0
Responder
Posts
12/03/2008
Joaoshi
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.
Responder
Gostei + 0
30/10/2008
Caus2
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?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)