Etiquetas 3 colunas x 8 linhas em Matricial

08/12/2003

1

Boa tarde colegas

Vejam só estou precisando imprimir etiquetas (mala-direta), da tabela de clientes... mas nao tenho nem ideia de como faze-lo!

Ja tenho implementado usando QuickReport, com um formato de etiqueta
2 colunas e 10 linhas

preciso criar na forma 3 colunas e 8 linhas mas mandando imprimir direto na matricial

a etiqueta tem 10,6 de largura e 3,6 de altura, distancia vertical de 0,4 e horizontal de 0,3..a folha é continua e tem 32,5 de largura por 30,5 de altura

ja procurei no forum topicos...mas nao achei nada...nesse sentido

Aguardo ajudo....

Grato!


Responder

Posts

09/12/2003

Nigro

Você tem duas saídas:
1º) Fazer tudo na mão usando Write e WriteLN
2º) Usar um componete free chamado zReport, que é a cara do QR.


Responder

09/12/2003

Macario

Nigro

me passa uma ideia de como alinhar as colunas e linhas

usando Write e WriteLN eu imprimo linha por linha ?

como calculo o espaço entre as colunas?


Responder

09/12/2003

Nigro

Isso imprime linha por linha e completa com espços pois você terá posição relativa


Responder

09/12/2003

Macario

Veja so o conteudo da etiqueta seria esse


Campos:

[color=green:d092957d3e]
NomCliente Endereço bairro Cidade UF CEP OBS Contato
[/color:d092957d3e]


Ou seja cada etiqueta tem cinco linhas como devo proceder para imprimir as mesmas, sendo 3 colunas.

tipo preciso fazer um while com um for?

para poder imprimir primeiro os 3 nomes..em seguida os 3 endereços?
e assim por diante?

e como controlar as paginas?

pra mim isso ta meio nebuloso....rs


Responder

09/12/2003

Nigro

Faça um array dos campos assim
NomCliente[1] NomCliente[2] NomCliente[3]
Endereco[1] Endereco[2] Endereco[3]


Responder

10/12/2003

Macario

Ainda nao consegui resolver isto!

os campos nao saem alinhados nas etiquetas

vejam a rotina com a qual estou tentando

[color=green:5e74680c76]
while i <= iCopia do begin AssignPrn(Arq); Rewrite(Arq); while not frmQEtiqMatricial.Table1.Eof do begin for iLinha := 1 to iColuna do begin s1 := s1 + Format(´¬5s´, [frmQEtiqMatricial.Table1.FieldByName(´V2´).AsString]); s2 := s2 + Format(´¬5s´, [frmQEtiqMatricial.Table1.FieldByName(´V3´).AsString]); s3 := s3 + Format(´¬5s´, [frmQEtiqMatricial.Table1.FieldByName(´Bairro´).AsString]); s3 := s3 + Format(´¬30s´, [frmQEtiqMatricial.Table1.FieldByName(´V4´).AsString]); s3 := s3 + Format(´¬15s´, [frmQEtiqMatricial.Table1.FieldByName(´V5´).AsString]); s3 := s3 + Format(´¬-55s´, [´ ´]); s4 := s4 + Format(´¬5s´, [frmQEtiqMatricial.Table1.FieldByName(´V6´).AsString]); s5 := s5 + Format(´¬5s´, [frmQEtiqMatricial.Table1.FieldByName(´V12´).AsString]); frmQEtiqMatricial.Table1.Next; end; Inc (i); end; Writeln (Arq,s1); Writeln (Arq,s2); Writeln (Arq,s3); Writeln (Arq,s4); Writeln (Arq,s5); Writeln (Arq); end; CloseFile(Arq); end;
[/color:5e74680c76]


como tenho 3 colunas primeiro pego todas as linhas do primeiro registro

e vou acumulando em uma variavel mas mesmo completando com espaços nao estou conseguindo....pq um espaço nao é do mesmo tamanhao de um A.

Como resolvo isso

[color=red:5e74680c76][b:5e74680c76]URGENTE PESSOAL[/b:5e74680c76][/color:5e74680c76]


Responder

10/12/2003

Nigro

Use a fonte CourierNew


Responder

10/12/2003

Macario

como faço para indicar essa fonte imprimindo direto?


Responder

10/12/2003

Wtjunior

Olá

Me envie seu email que mandarei uma função de impressão em matricial que vc. informa Linha e Coluna ex. (2, 5, ´texto para impressão)

um abraço

Wilson


Responder

10/12/2003

Nigro

Você podede usar o zReport que é free e tem a cara do QR


Responder