(Resolvido) Imprimir Etiquetas no QuickReport

[Recife]

Oi pessoal,

Estou precisando imprimir etiquetas, em uma rotina de um sistema que estou desenvolvendo. Utilizo Delphi 7, BD Firebird 1.5.

Os dados das etiquetas são conseguidos de uma setença SQL através de uma query, onde filtro clientes por data de aniversário(informado pelo usuário - dia do nascimento / mes do nascimento).

Coloquei um QRExprMemo dentro de uma band Detail. Porém, quando existe mais de um cliente o primeiro registro sai certo, o segundo registro sai no final da página da primeira coluna, o terceiro irá sair na primeira linha da segunda coluna(obs: dividi o quick em duas colunas) o quarto sai no final da pagina da segunda coluna e assim sucessivamente.

[Micheus]

Quando você define colunas no quickreport, ele faz a impressão uma coluna de cada vez, ou seja, imprime as bandas configuradas primeiro na coluna mais à esquerda até que encontre o fim da página, para depois passar a próxima coluna, começando novamente na parte superior e assim por diante, até concluir as colunas e avançar para outra página e começar tudo denovo.

Muito provavelmente as bandas que você criou ocupam metade da página, ou o suficiente para que não caiba uma terceira etiqueta em uma coluna, motivo pelo qual você está vendo apenas 4 etiquetas em uma página.

Seria isto o que ocorre?

[Guest --rochawil --]

Olá, estou elaborando um relatório de etiqueta em qreport e me deparei com o fato de

imprimir uma coluna de cada vez, como citado na resposta acima..

bom, gostaria de saber se existe uma maneira de evitar isso, tipo.. definir o tamanho da

página como sendo de uma etiqueta e cancelar o avanço de página do qreport, já que a

folha é por tracionador mesmo rsss..

bom, só queria saber se é possível.. ou se alguém conseguiu imprimir as duas colunas de uma vez

Grato

William

[Recife]

Quando você define colunas no quickreport, ele faz a impressão uma coluna de cada vez, ou seja, imprime as bandas configuradas primeiro na coluna mais à esquerda até que encontre o fim da página, para depois passar a próxima coluna, começando novamente na parte superior e assim por diante, até concluir as colunas e avançar para outra página e começar tudo denovo.

Muito provavelmente as bandas que você criou ocupam metade da página, ou o suficiente para que não caiba uma terceira etiqueta em uma coluna, motivo pelo qual você está vendo apenas 4 etiquetas em uma página.

Seria isto o que ocorre?

Micheus,

é exatamente isto. dividi o qreport em duas colunas, coloquei uma band detail e dentro da bando um qrexprmemo. Quando rodo e chamo este relatório, apresenta o primeiro registro na primeira fila da coluna, o segundo registro no final da fila da coluna, o terceiro na primeira fila da segunda coluna, o quarto registro no final da fila da segunda colunda. dai, passa-se para uma nova pagina e segue-se a mesma rotina descrita. Não sei como resolver este problema.

[Felipee]

cara, poe um band comum mesmo e utilizem qrdbtext mesmo.

funciona beleza.

[Micheus]

Felipee, acho que esta não é exatamente a questão do colega Recife.

A questão a que ele parece referir-se é sobre como imprimir as etiquetas, da esquerda para a direita, e de cima para baixo.

Sendo que utilizando impressão em coluna, o quick realiza a impressão de cima para baixo da esquerda para a direita.

Foi neste sentido que pedi confirmação.

Bom, supondo que realmente seja isto, o único meio de contornar isto no Quick Report, é controlando a impressão na mão. É algo que pode ser meio chato, mas funciona muito bem.

Segue anexo um exemplo que ilustra a impressão de etiquetas de tamanho pequeno e em 3 colunas.

A idéia básica é:

- mantemos a propriedade Page.Columns = 1 no QuickRep;

- ajustamos as margens de acordo com o papel a ser utilizado;

- adicionamos uma banda do tipo Detail, e ajustamos sua altura de acordo com as necessidades;

- nesta banda, colocamos QRlabels (ou o que você quiser, mas que não seja data-aware, como QRDBText), posicionados em forma de coluna. Estes componentes devem ser nomeados de modo a incluir no seu nome o nº da coluna - isso traz benefícios;

- a propriedade DataSet do QuickRep deve ser mantida nula. O dataset será manipulado no evento OnNeedData;

- no evento BeforePrint do QuickRep posicionamos o dataset no início (First);

- no evento BeforePrint da banda, inicializamos os labels (ou outros componentes) e para cada coluna, avançamos o dataset (Next);

Bom, e ver o exemplo para perceber que é mais complicado explicar do que fazer.

Abraços

Editado Dezembro 6, 2007 por Micheus
Removido anexo, pois foi colocado no post mais abaixo após corrigido.

[Recife]

Micheus, obrigado pela sua resposta.

Porém não conseguir rodar o projeto que você postou, não estou conseguindo o caminho para o databasename.Aparece a seguinte mesangem:Database Engine Error. Invalid directory. Directory: C:\Teste.DB

[Micheus]

Micheus, obrigado pela sua resposta.

Porém não conseguir rodar o projeto que você postou, não estou conseguindo o caminho para o databasename.Aparece a seguinte mesangem:Database Engine Error. Invalid directory. Directory: C:\Teste.DB

esta mensagem está meio estranha. Eu baixei o arquivo, descompactei em uma pasta, compilei, executei e realmente há um erro mas pela falta do arquivo Teste.MB (conteúdo de memo) - esqueci dele, desculpem-me. :ph34r:

Vai denovo ele completo com um executável também.

Ao ser iniciado, o programa troca a origem de dados para o local do programa, então tudo deve estar na mesma pasta.

Abraços

Impressao_Etiquetas.zip

[Recife]

Micheus,

Só tenho à agradecer pela solução, conseguir fazer rodar a rotina no sistema como uma luva.

Problema Resolvido

Editado Dezembro 15, 2007 por Recife

[Micheus]

Só tenho à agradecer pela solução, conseguir fazer rodar a rotina no sistema como uma luva.

Problema Resolvido

Que bom.

Caso haja necessidade, você pode adaptar este relatório para poder informar a partir de qual etiqueta começar a impressão - definir linha x coluna.

Isto é interessante quando suas etiquetas não preenchem toda a folha e você pode, então, começar a impressão a partir da próxima etiqueta disponível no papel (folha ou formulário).

Nesta situação, você armazena em uma variável (digamos, QtdPular), private ao form, o resultado da operação Linha*Coluna = etiquetas a pular. Então, utilizando outra variável (também private ao form, suponha QtdPulada), você inicializa ela com 0 no evento BeforePrint do QuickRep e no evento BeforePrint da banda detalhe você controla quando inicializar os labels, verificando (em portugol):

...
  se QtdPulada > QtdPular então início_então
    inicializa labels com valores do dataset
  fim_então
  senão início_senão
    Inc(QtdPulada)
    inicializa labels com branco
  fim_senão

Algo mais ou menos assim.

Abraços

[Gustavo Coelho]

Micheus,

Só tenho à agradecer pela solução, conseguir fazer rodar a rotina no sistema como uma luva.

Problema Resolvido

Não é atoa que você tem o título de veterano !!!

você é o cara!

Excelente Exemplo!

Gustavo Coelho

[Quiccóli]

excelente Exemplo, funciona mais que perfeitamente ^_^ , Foi muito util, no meu caso não usei para imprimir etiquetas, mas sim para dividir somente algumas bandas em 2 partes. Se colocarmos a opção Coluns do QReport para 2 ele divide todas as Details, e eu precisava que fosse misto, e o Ex. serviu como uma luva. ;)

[Kym]

EDIT: Consegui.

Editado Maio 11, 2011 por Kym

[Diego Fernandes de Paula]

Muito bom. Acabei de usar e ficou perfeito. Do jeito que eu queria.

O link abaixo mostra a configuração a ser feita em algumas etiquetas.

https://www.sig.ufla.br/modulos/ajuda/etiqu...cod_etiqueta=14

Abraços!

[infoleu]

alguém ainda tem esse exemplo, estou precisando muito.