Etiquetas 3 colunas x 8 linhas em Matricial
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!
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!
Macario
Curtidas 0
Respostas
Nigro
08/12/2003
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.
1º) Fazer tudo na mão usando Write e WriteLN
2º) Usar um componete free chamado zReport, que é a cara do QR.
GOSTEI 0
Macario
08/12/2003
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?
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?
GOSTEI 0
Nigro
08/12/2003
Isso imprime linha por linha e completa com espços pois você terá posição relativa
GOSTEI 0
Macario
08/12/2003
Veja so o conteudo da etiqueta seria esse
Campos:
[color=green: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
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
GOSTEI 0
Nigro
08/12/2003
Faça um array dos campos assim
NomCliente[1] NomCliente[2] NomCliente[3]
Endereco[1] Endereco[2] Endereco[3]
NomCliente[1] NomCliente[2] NomCliente[3]
Endereco[1] Endereco[2] Endereco[3]
GOSTEI 0
Macario
08/12/2003
Ainda nao consegui resolver isto!
os campos nao saem alinhados nas etiquetas
vejam a rotina com a qual estou tentando
[color=green: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]
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]
GOSTEI 0
Nigro
08/12/2003
Use a fonte CourierNew
GOSTEI 0
Macario
08/12/2003
como faço para indicar essa fonte imprimindo direto?
GOSTEI 0
Wtjunior
08/12/2003
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
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
GOSTEI 0
Nigro
08/12/2003
Você podede usar o zReport que é free e tem a cara do QR
GOSTEI 0