etiquetas

Criei uma nova tabela e botei um botão (Caption: Imprimir etiqueta individual). No OnClick desse botão botei o seguinte código:

procedure TFmEtiquetas.BitBtn1Click(Sender: TObject);
var i:integer;
begin
Screen.Cursor:=crHourGlass;
if (Application.MessageBox(´Deseja imprimir uma página inteira?´,´Pergunta´,MB_YESNO))=idyes then
begin
Deletar.ExecSQL; {Query para apagar tudo o que tem nessa nova tabela criada}
Application.CreateForm(TFmRel_Etiquetas,FmRel_Etiquetas);
for i:=1 to 21 do {no meu caso tinha que imprimir uma página inteira dessa etiqueta, 21 etiquetas no total}
begin //Inserindo dados na tabela
Tbl_Rel_pagina_inteira.open;
Tbl_Rel_pagina_inteira.append;
Tbl_Rel_pagina_inteiracidade.text:=dbcidade.text;
Tbl_Rel_pagina_inteiraendereco.text:=dbendereco.text;
Tbl_Rel_pagina_inteiranome.text:=dbnome.text;
Tbl_Rel_pagina_inteira.post;
end;
Screen.Cursor:=crDefault;
//chamando o relatório
FmRel_Etiquetas.QR_indiv_pag_inteira.Preview;
FmRel_Etiquetas.free;
Tbl_Rel_pagina_inteira.close;
end
else
begin // se a opção for não imprime somento uma etiqueta!
Application.CreateForm(TFmRel_Etiquetas,FmRel_Etiquetas);
Screen.Cursor:=crDefault;
FmRel_Etiquetas.QR_individual.preview;
FmRel_Etiquetas.free;
end;
end;

Espero ter ajudado!

Um abraço! Luís Ledebour

Se vc estiver usando o quickreport, poderia pedir 10 cópias, se todas as etiquetas precisarem da mesma quantidade.
Exemplo:
QuickRep1.PrinterSettings.Copies := 10;

Se tiver usando outro gerador de relatórios, pode comandar (por exemplo via comando ´for´ do pascal) a impressão quantas vezes desejar.

Josemar