Eu vou utilizar uma tabela temporaria, para etiquetas Pimaco, sao 10 linhas e 2 colunas. O usuario define qual o numero da linha que deve comecar a imprimir... o sistema coloca "brancos" nos campos iniciais da tabela e preenche os outros campos com as informacoes que deverao sair nas etiquetas...depois imprimo a tabela toda...
Caso alguem tenha outra solucao..seria legal saber... Ate mais ----- Original Message ----- From: giuvany ribeiro To: LISTA DELPHI BR Sent: Wednesday, January 26, 2005 4:26 PM Subject: [delphi-br] Etiqueta Segunda Coluna Pessoal gostaria de saber, To trabalhando com delphi 7 e Quick report Bom estou imprimindo etiquetas e para nao ter problemas com perda de etiquetas, Eu gostaria de saber se alguem tem alguma dica sobre como imprimir a etiqueta na segunda coluna, por exemplo Quero imprimir da 5 linha apartir da 2 coluna Pois ja consegui pular as linhas mas vai as duas colunas juntos. E quando uso o codigo procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); var a ,b :integer; begin inc(i); if (i<inicio) then begin qrlabel1.Caption:=''; qrlabel2.Caption:=''; inc(i); moredata:=true; end else begin moredata:=not qry_aux.eof; if moredata then begin qrlabel1.Caption:=qry_aux.fieldbyname('codigo_associado' ).asstring; qrlabel2.Caption:=qry_aux.fieldbyname('nome_associado' ).asstring; qry_aux.Next; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin qry_aux.Open; inicio:=strtoint(edit1.text); QuickRep1.Preview; qry_aux.close; end; procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin i:=0; qry_aux.first; end; end. Neste codigo ele pula a primeira linha informada mas a segunda coluna fica na primeira linha Exemplo primeira coluna Segunda coluna -------- cod0003 Amador -------- cod0004 maria cod0001 Lia cod0005 vari cod0002 tia cod0006 Marta veja que a coluna 2 nao acompanha a coluna um Bom nao sei se fui claro, mas se alguem tiver um exemplo ou dica eu Agradeco Giuvany --------------------------------- Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. --------------------------------- Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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
