Fórum Etiquetas para Mala Direta #192682

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

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