Buscar por:

Imprimir imagem ppla - Argox

Código

// Tive muita dificuldade para encontrar algo sobre ppla para impressora Argox, como consegui, vou compartilhar.

// Para funcionar tem que baixar o arquvio WINPPLA.DLL que tem disponivel na net.

uses dt, Itens, tel_fatura;

{$R *.dfm}

function  Get_Graphic  ( x,y,mem_mode:integer;format:char;filename:pchar):integer;stdcall;external 'WINPPLA.DLL';

function  CreatePrn    ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLA.DLL';

function  Print_Out    ( width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL';

function  Set_Darkness ( darkness: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';

Procedure ClosePrn     ();stdcall;external 'WINPPLA.DLL';

// O arquivo BMP tem que esta no mesma pasta do programa.

procedure TPrincipal.BitBtn5Click(Sender: TObject);

begin

     CreatePrn(1, 'ppla.txt');

     Set_Darkness(12);

     Prn_Text(90,95, 1, 2, 0, 1, 1, 'n', 1, pchar('STERI HALL           - VAPOR -'));

     Get_Graphic(290, 80, 1, 'B', pchar('lg1.bmp'));

     Prn_Text(90,80,1, 2, 0, 1, 1, 'n', 1, pchar( DtM.CLIENTESRAZAO.AsString+'    OS:'+Dtm.FATURASDOCUMENTO.ASSTRING));

     Prn_Text(90,65,1, 2, 0, 1, 1, 'n', 1, pchar('DATA :'+ DatetoStr(DATE)  +'     VALIDADE :'+DateToStr(DATE+10)));

     Prn_Text(90,50,1, 2, 0, 1, 1, 'n', 1, pchar('SETOR:'+DtM.Itens_faturasNOMECCUSTO.AsString));

     Prn_Text(90,35,1, 2, 0, 1, 1, 'n', 1, pchar('Prod.:'+DtM.Itens_faturasNOMEPRODUTO.AsString));

  IF DTM.Itens_faturasCOMPLEMENTO.AsString <> '' then

     begin

     Prn_Text(90,25, 1, 2, 0, 1, 1, 'n', 1, pchar(DtM.Itens_faturasCOMPLEMENTO.AsString));

     Prn_Text(90,2, 1, 2, 0, 1, 1, 'n', 1, pchar('Resp: Tecnico Enfa Fatima Costa Pereira'));

     end

  else

     Prn_Text(90,5, 1, 2, 0, 1, 1, 'n', 1, pchar('Resp: Tecnico Enfa Fatima Costa Pereira'));

     Print_Out(1, 1,DtM.Itens_faturasQUANTIDADE.AsInteger, 1);

     ClosePrn;

end;