Fórum Etiqueta modo matricial #202570

x := 1; y := 0; Prints := TPrinter.Create; Prints.Canvas.Font.Name := ´Draft 20cpi´; Prints.Canvas.Font.Size := 10; Prints.BeginDoc; frmQEtiqMatricial.Table1.First; while not frmQEtiqMatricial.Table1.Eof do begin Prints.Canvas.TextOut(x,y,frmQEtiqMatricial.Table1.FieldByName(´V2´).AsString); // nome iLinIni := y; y := y+20; Prints.Canvas.TextOut(x,y,frmQEtiqMatricial.Table1.FieldByName(´V3´).AsString); //endereço y := y+20; Prints.Canvas.TextOut(x,y,frmQEtiqMatricial.Table1.FieldByName(´BAIRRO´).AsString); // bairro x := x+150; y := y; Prints.Canvas.TextOut(x,y,frmQEtiqMatricial.Table1.FieldByName(´V4´).AsString); //cidade x := x+150; y := y; Prints.Canvas.TextOut(x,y,frmQEtiqMatricial.Table1.FieldByName(´V5´).AsString); // estado x := 0; y := y+20; Prints.Canvas.TextOut(x,y,frmQEtiqMatricial.Table1.FieldByName(´V6´).AsString); // CEP y := y+20; Prints.Canvas.TextOut(x,y,sOBS); // observação y := y+20; Prints.Canvas.TextOut(x,y,frmQEtiqMatricial.Table1.FieldByName(´V12´).AsString); // contatos frmQEtiqMatricial.Table1.Next; end; Prints.EndDoc; Prints.Free;