Imprimir codigo de barras no rave sem o digito verificador

Delphi

11/10/2004

Pessoal preciso imprimir o codigo de barras no rave sem o digito verificador, estou utilizando o printbarcode, alguem pode me ajudar.
Obs. não estou utilizando o rave visual, estou fazendo na raçã no evento onprint como ex. abaixo


procedure TfrmImpCodigoBarras.rvImpCodigoBarrasPrint(Sender: TObject);
var
k, linhaserv, ColunaEtiq : real;
begin
linhaserv := 0.55;
ColunaEtiq := 0.35;
for x := 1 to StrToInt(Edit2.Text) do
begin
imprime(rvImpCodigoBarras,linhaserv,ColunaEtiq,copy
(lblDesc.Caption,1,20),´Courier New´,6,clBlack);
linhaserv:= linhaserv+0.1;
imprime(rvImpCodigoBarras,linhaserv,ColunaEtiq,copy
(lblDesc.Caption,21,20),´Courier New´,6,clBlack);
linhaserv:= linhaserv+0.1;
PrintBarcode(rvImpCodigoBarras,linhaserv,ColunaEtiq,Edit1.Text);
end;
end;



Grato


Plácido
:roll:


Placido

Placido

Curtidas 0
POSTAR