Coloque isso aki logo embaixo de implementation
function Set_Darkness ( darkness:integer):integer;stdcall;external
'WINPPLA.DLL';
function CreatePrn (
selection:integer;FileName:String):integer;stdcall;external 'WINPPLA.DLL';
function Print_Out (
width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL';
function Prn_Text (
x,y,ori,font,typee,hor_factor,ver_factor:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external
'WINPPLA.DLL';
function Prn_Barcode (
x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external
'WINPPLA.DLL';
Procedure ClosePrn ();stdcall;external 'WINPPLA.DLL';
function Set_Backfeed (back:integer):integer;stdcall;external
'WINPPLA.DLL';
Certiique-se de deixar a dll no mesmo local do executavel.....
E esse é o exemplo de uso.....
function
ImprimirEtqGondola(Fantasia,Descricao,Modelo,Marca,Barras:String;Preco:Double;Quant:Integer):Boolean;
begin
try
if Modelo = null then Modelo:='';
if Marca = null then Marca:='';
CreatePrn(1, 'ppla.txt'); {inicia o processo de impressao
1-lpt1,2-lpt2,3-lpt3,}
Set_Darkness(14);
Set_Backfeed(320);
{x, y, ori,tp, nar,wd,hei;mode,num;data}
Prn_Barcode(1, 14, 1, 'F', 2, 18, 21, 'N', 0,
pchar(COPY(CompletaCaracteres(Barras,12,'0','E'),1,12)));
{x, y, ori,f,tf,hor,vr,mod,num ;data}
Prn_Text(0, 75, 1, 2, 0, 2, 2, 'n', 0, pchar(UpperCase(Descricao)));
Prn_Text(0, 60, 1, 2, 0, 2, 1, 'n', 0, pchar(UpperCase(Modelo)));
Prn_Text(0, 45, 1, 2, 0, 2, 1, 'n', 0, pchar(UpperCase(Marca)));
Prn_Text(105,15, 1, 5, 0, 2, 1, 'n', 0, pchar('R$'));
Prn_Text(160,15, 1, 5, 0, 3, 2, 'n', 0, pchar(formatfloat('#,##0.00',
Preco)));
Prn_Text(50, 0, 1, 2, 0, 2, 1, 'n', 0, pchar(Fantasia));
Print_Out(1,1,Quant,1);
ClosePrn;
Result:=True;
except
Result:=False;
end;
end;
Marcio Carvalho escreveu:
> Pessoal
>
> Alguel já usou uma dll (free) de código de barras e tem ela e as intruções
> de como usa?
> estou tentando com a WINPPLA.DLL mas não estou obtendo sucesso
>
> veleu
>
> Marcio
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> *Yahoo! Grupos, um serviço oferecido por:*
> PUBLICIDADE
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
> * Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> * Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
_______________________________________________________
Promoção Yahoo! Acesso Grátis: a cada hora navegada você
acumula cupons e concorre a mais de 500 prêmios! Participe!
http://yahoo.fbiz.com.br/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
