procedure TForm1.Button2Click(Sender: TObject);
var
num_etiq : word;
begin
{- propriedade Page opção Collumns do quickrep, selecione as quantidades de
colunas;
- colocar os campos com enabled := false;
OBS: o quickrep imprime primeiro a coluna 1, depois a 2, etc.
}
Application.CreateForm(TForm3, Form3); // form com quickreport
form3.ClientDataSet1.Open;
for num_etiq := 1 to (strtoint(edit2.text) - 1) do // edit2 contem o
numero da etiqueta
begin
// grava 'n' registro sem branco até chegar ao numero da etiqueta (ex:
edit2.text := 11, grava 10 reg. em branco)
form3.ClientDataSet1.Insert;
form3.ClientDataSet1.FieldByName('col').asstring := '';
form3.ClientDataSet1.Post;
end;
ibquery1.open;
while not ibquery1.eof do
begin
form3.ClientDataSet1.Insert;
form3.ClientDataSet1.FieldByName('col').asstring :=
IBQuery1.fieldbyname('campo6').asstring;
form3.ClientDataSet1.Post;
ibquery1.next;
end;
ibquery1.close;
form3.QuickRep1.Preview;
form3.ClientDataSet1.close;
form3.release;
end;
Adapte as suas necessidades.
Espero ter ajudado.
----- Original Message -----
From: "Karl Werner Belowodski" <[EMAIL PROTECTED]>
To: "Delphi-br" <delphi-br@yahoogrupos.com.br>;
<[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Wednesday, February 23, 2005 9:11 AM
Subject: [delphi-br] Escolher posição da etiqueta.
Queria saber como é que eu posso escolher de qual etiqueta eu vou começar a
imprimir. Exemplo: fiz um relatório e só usei 10 etiquetas do total de 30,
no próximo
relatório gostaria de começar da 11ª etiqueta. Como posso fazer isso?
Agradecido,
Karl.
[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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005
--
<<<<< 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
