Etiquetas no QuickReport

Delphi

27/02/2003

Oi gente...

É o seguinte... eu preciso imprimir umas etiquetas (nesses papéis que já vem picotado, proprios pra etiqueta mesmo em formulario contínuo) e estou usando o QuickReport.
Eu configurei direitinho o tamanho do papel e dividi em 8 colunas (que é o tanto de colunas do papel) e até aí tudo certinho. Mas acontece que quando eu testei a primeira vez as etiquetas sairam na vertical, completaram a primeira coluna até em baixo e depois foram pra segunda coluna e assim vai. Só que não pode ser assim, tem que imprimir na horizontal. Aí eu marquei como True aquele ForceNewColumn só que aí piorou pq ele preenche a primeira linha na primeira página, depois preenche a primeira linha da segunda página e assim vai. Só escreve na primeira linha de todas as páginas.

Será que alguém pode me dar uma luz de como resolver isso ou então algum outro modo pra imprimir essas etiquetas? O papel tem 8 colunas e 6 linhas e eu preciso disso o mais rápido possível.

Valeu pela atenção, galera!

[]s


Rafaelleite

Rafaelleite

Curtidas 0

Respostas

Anonymous

Anonymous

27/02/2003

Bom, há muito tempo eu uso o QR, mas só consegui fazer impressão de vários registros na horizontal assim:

Crie uma banda DETALHE, no seu caso coloque nesta banda, QRLabels dispostos no formato de sua etiqueta, note que o colunamento é feito manualmente, Ok?

Ex.:

QRLNome1 QRLNome2 ,etc
QRLEndereco1 QRLEndereco2 ,etc


Agora, no evento OnBeforePrint da banda detalhe preencha os QRLabels:

QRLNome1.Caption := TabelaNOME.Value;
QRLEndereco1.Caption := TabelaENDERECO.Value;

Tabela.Next // << ---- Vai para o proximo registro

QRLNome2.Caption := TabelaNOME.Value;
QRLEndereco2.Caption := TabelaENDERECO.Value;

Tabela.Next // << ---- Vai para o proximo registro

,etc;



Espero ter ajudado...


GOSTEI 0
POSTAR