ActiveDelphi

[utlrasen.tato]

BOA NOITE AMIGOS

É O SEGUINTE NO MEU SISTEMA TENHO UMA ROTINA PARA IMPRESSORA ARGOX QUE FUNCIONA REDONDO, MAS AGORA PRECISO PARA IMPRESSORA ZERA TLP2842, EU SEI QUE NA ARGOX UTILIZA A DLL WINPLA.DLL, ESTOU COM DUVIDAS COMO FAZER ROTINA PARA IMPRESSORA ZEBRA, JA CONSULTEI OS FORUM MAS NAO CONSEGUI ENTENDER COMO DEVO FAZER, SERIA COM A MESMA DLL DA ARGOX! ALGUEM PODE ME AJUDAR"

SEGUE MINHA ROTINA PARA ARGOX
uses U_login, U_DmBD;
(*Funções da DLL de comunicação com a impressora de Codigo de Barras*)
function A_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLA.DLL';
function A_CreatePrn ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLA.DLL';
function A_Print_Out ( width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL';
function A_Prn_Text ( x,y,ori,font,typee,hor_factor,ver_factor:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';
function A_Prn_Barcode ( x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';
function A_Prn_Text_TrueType ( x,y,FSize:integer;FType:pchar;Fspin,FWeight,FItalic,FUnline,FStrikeOut:integer;id_name,data:pchar;mem_mode:integer):integer;stdcall;external 'WINPPLA.DLL';
function A_Get_Graphic ( x,y,mem_mode:integer;format:char;filename:pchar):integer;stdcall;external 'WINPPLA.DLL';
function A_Draw_Box ( mode, x, y, width, height, top, side:integer):integer;stdcall;external 'WINPPLA.DLL';
function A_Draw_Line (mode, x, y, width, height:integer):integer;stdcall;external 'WINPPLA.DLL';
procedure A_Clear_Memory ();stdcall;external 'WINPPLA.DLL';
Procedure A_ClosePrn ();stdcall;external 'WINPPLA.DLL';
{$R *.dfm}

A_createPrn(FRM_LOGIN.PORTA,'');

//for i := 1 to StrToInt(edit1.Text) do begin
A_Clear_Memory;
// Primeira etiqueta
A_Prn_Text (05,05,1,9,2,1,1,'n',2,cod);
A_Prn_Barcode(05, 15, 1, 'E', 2, 2, 30, 'n', 1, cod);



A_Prn_Text (200,05,1,9,2,1,1,'n',2,cod2);
A_Prn_Barcode(200,15, 1, 'E', 2, 2, 30, 'n', 1, cod2);


// Segunda
A_Prn_Text (05,55,1,3,3,1,1,'n',2,valor);
A_Prn_Text (205,55,1,3,3,1,1,'n',2,valor2);
// Terceira
A_Prn_Text (05,75,1,2,2,1,1,'n',2,descricao);
A_Prn_Text (200,75,1,2,2,1,1,'n',2,Descricao2);
// ***************************************

OBRIGADO