Etiquetas para Mala Direta

Delphi

04/11/2003

Por favor, estou com dificuldades para alinhar os dados nas etiquetas na Epson LX300, estou usando o FortesReport, existe algum componente especifico para criar etiquetas? ou se não, se alguem souber como eu posso alinhar melhor os dados para que eles saiam legal nas etiquetas eu agradeço.
Obrigado

Rafael


Raphal

Raphal

Curtidas 0

Respostas

Mariah

Mariah

04/11/2003

Rafael,

Não posso resolver pois estou com um problema semelhante, mas talveztrocando ideias possamos nos ajudar.
Estou emitindo etiquetas. No Quick não consequi ele se perde totalmente. Então passei a utilizar Tprinter

Printer.Canvas.Font.Name := ´Draft´;
Printer.Canvas.Font.Size := 9;
Printer.Canvas.Font.Style := [];
SelecImpr.Label2.Caption := ´Etiquetas´ ;
SelecImpr.showModal;
Printer.Title := ´Etiquetas´;
MudaTamPapel(DMPAPER_USER,2150,3050);

Printer.BeginDoc;

Py :=1;
ii := 0;
If RelEtiqPacAfast.SqlRelPacAfast.RecordCount = 0 then
exit;
while not RelEtiqPacAfast.SqlRelPacAfast.Eof do
begin
Printer.Canvas.TextOut(20, Py,
RelEtiqPacAfast.SqlRelPacAfast.FieldByName(´CZ04_nome´).AsString);
Printer.Canvas.TextOut(20, Py+25, RelEtiqPacAfast.SqlRelPacAfast.FieldByName(´CZ04_ender´).AsString);
Printer.Canvas.TextOut(20, Py+50, RelEtiqPacAfast.SqlRelPacAfast.FieldByName(´CZ04_bair´).AsString);
Printer.Canvas.TextOut(20, Py+75, RelEtiqPacAfast.SqlRelPacAfast.FieldByName(´CZ04_cep´).AsString);
Printer.Canvas.TextOut(120, Py+75, RelEtiqPacAfast.SqlRelPacAfast.FieldByName(´CZ04_cidad´).AsString);
RelEtiqPacAfast.SqlRelPacAfast.Next;
ii := ii +1;
Py := Py + 143;
end;
Printer.EndDoc;

Com esta rotina consigo imprimir direto para a impressora e bem posicionado, no entanto imprime duas folhas e para misteriosamente!!!!
Py é a posição da linha.
Abraços
Mariah


GOSTEI 0
Poderoso

Poderoso

04/11/2003

Use o RdPrint da deltress, Baixe no site www.deltress.com
É fácil de usar...Mas é pago.


GOSTEI 0
POSTAR