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
