Bom dia
Estou enviando este email com o objetivo de ajudar quem por um acaso tiver o mesmo
problema levantado no ítem 2. O item 1 ainda nao resolvi, só descobrir que o Quick
Report 4 ja implementou no settings da impressora o controle do Collate
Vamos la
1- inseri uma banda datail onde atraves de um QRDBText associei o campo Cultivar
centralizando na banda (funcionando como um subt´titulo), como queria que cada
cultivar iniciasse eem uma novsa pagina coloquei na propriedade ForcrNewPage da band
detalhe TRUE.
Na mesma banda em uma area mais inferior coloquei tres QRLabel, na mesma linha, cujos
caption foram Locus, Alelo1, Alelo2
respectivamente
Mudei a propriedade desta banda HasChild como True. Assim criou-se uma banda Child
2- Na banda Child criada coloquei uma QRlabel, e dois QRDBText desta ordem em uma
posição alinhada verticalmente aos tres QRLabel colocados na banda anterior. Preenchi
o caption do QRLAbel com o nome do primeiro Locus e preenchi os QRDBText com os
DataSet e DataField correspondente a este locus
E agora no evento BeforePrint a seguinte
PrintBand := Table1.FieldByName('Alelo1').AsString <> '';
Mudei a propriedade desta banda HasChild como True. Assim criou-se uma banda Child
3- Nesta nova banda repeti os mesmos procedimento que no item 2 e assim fui repetindo
para cada locus
Observação: Para testar tem que compilar e executar o executavel pois fazendo o
preview direto do QuickReport nao elimina os campos vazios
1) Como faço para tratar a impressao se o usuario desmarcar a indicação de agrupar no
setup de impressao pois a impressao sai sempre agrupada
tentei por fora e dentro do "if printDialog1.Execute
Printer.GetPrinter(Device, Driver, Port, hDevMode);
PrintMode := GlobalLock(hDevMode);
if PrintDialog1.Collate then
begin
PrintMode^.dmFields := PrintMode^.dmFields or DM_COLLATE;
PrintMode^.dmCollate := DMCOLLATE_TRUE;
end
else
begin
PrintMode^.dmFields := PrintMode^.dmFields or DM_COLLATE;
PrintMode^.dmCollate := DMCOLLATE_FALSE;
end;
GlobalUnLock(hDevMode);
2) A outra e´ como montar o relatorio.
Tenho uma tabela com a seguinte estrutura
Cultivar A1 A2 B1 B2 C1 C2
CV1 - - 12 14 - -
CV2 16 17 - - 8 9
CV3 21 21 14 16 6 5
sendo A locus A
B locus B
........
A1 alelo A1
A2 alelo A2
B1 alelo B1
B2 alelo B2
.....
....
Eu gostaria que saisse desta forma
Cultivar CV1 // título
Locus Alelo1 Alelo2
B 12 14
ou seja para cada cultivar, em uma página separada, só se imprimiria os locus onde os
alelos estao presentes (com valores)
Eu tentei da seguinte maneira
Criei uma banda detalhe onde coloquei (na primeira linha para formar o titulo) um
QRLabel com caption Cultivar e um QRDBText com o DataField Cultivar. Na segunda
linha tres QRLabel com os caption Locus, Alelo1 e Alelo2. Como queria que cada
cultivar saisse em um nova página coloquei na propriedade ForcrNewPage da band detalhe
TRUE. Até aqui o relatorio estava como o previsto. Na hora de colocar os valores que
"a corda roeu" pois nao estou conseguindo fazer aparecer os dados.
Agradeço desde ja
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
