Bom dia 

Desculpe pelo possivel reenvio pela segunda vez hoje mas como eu recebi um e-mail do 
grupo dizendo que a primeira era uma mensagem nao autorizada por conter a palavra 
Report no Assunto (o que nao entendi)  e como só falta resolver principalmente o item 
2 para terminar o meu programa, resolvi envia-la novamente  

Estou reenviando este e-mail pois ainda não consegui resolver estas duas duvidas. O 
mais importante é a 2. 


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

 

Responder a