Acbretq Impressao De Figuras

[Dhauch]

no acbretq imprime só uma imagem 

 

 

mesmo q eu carregue mais de uma imagem

 

 

exemplo: preciso imprimir o logo e

               tambem como o produto deve ser lavagem,alvejantes,secagem,passagem,lavanderia

 

              cada um deles tem uma imagem diferente

 

              meu código esta abaixo ele imprime em todas as imagens a mesma.

 

 

AtivarACBrETQ;
    with ACBrETQ do
    begin
      if Modelo = etqPpla then
      begin
        IBTable1.First;

        while not IBTable1.Eof do
        begin


        QryNomeFor.close;
        QryNomeFor.ParamByName('for').Value:=IBTable1FORNECEDOR.Value;
        QryNomeFor.Open;

        CarregarImagem('C:\Compuservice\Sirlei1.bmp','C:\Compuservice\Sirlei1.bmp',true);
        ImprimirImagem(1, 620, 150,'C:\Compuservice\Sirlei1.bmp');//180

        forn:=IntToStr(QryNomeForCOD_FOR.Value);
        ImprimirTexto(orNormal, 2, 1, 1, 590, 70, 'Fornecedor:' + copy(caractersemacento(forn),1,5));
        ImprimirTexto(orNormal, 2, 1, 1, 560, 70, copy(caractersemacento(QryNomeForNOME.Value),1,38));
        ImprimirTexto(orNormal, 2, 1, 1, 530, 70, 'CNPJ:' + QryNomeForCGC.Value);

        ImprimirTexto(orNormal, 2, 1, 1, 485, 70, Copy(IBTable1DESCRICAO.Value,1,38));

        ImprimirTexto(orNormal, 2, 1, 1, 440, 70, 'Cod.For:'+ Copy(caractersemacento(IBTable1LOCAL.Value),1,38));
        ImprimirTexto(orNormal, 2, 1, 1, 410, 70, 'Tamanho:'+ Copy(caractersemacento(IBTable1TAMANHO.Value),1,35)+ '    '+
                                                  'Unid:' + Copy(IBTable1UNIDADE.Value,1,10));
        ImprimirTexto(orNormal, 2, 1, 1, 380, 70, 'Quantidade:'+ IBTable1QTDE.Value);

        cod_barras:=zeroesquerda(IBTable1COD_PRO.Value,12);
        ImprimirTexto(orNormal, 2, 1, 1, 350, 70, 'Codigo:');
        ImprimirTexto(orNormal, 2, 1, 1, 320, 70,  inttostr(IBTable1COD_PRO.value));
        ImprimirBarras(orNormal, 'F', '2', '2', 290, 340, cod_barras, 90, becSIM); //320

        ImprimirTexto(orNormal, 2, 1, 1, 260, 70, 'Composicao:     Valor: R$' +   //250
                              FormatFloat('###,##0.00',IBTable1PRECO.Value));
        ImprimirTexto(orNormal, 2, 1, 1, 230, 70, CurrToStr(IBTable1PERC1.Value) +'%'+ '   '+
                                                  caractersemacento(IBTable1COMP1.Value));
        ImprimirTexto(orNormal, 2, 1, 1, 200, 70, CurrToStr(IBTable1PERC2.Value) +'%'+ '   '+
                                                  caractersemacento(IBTable1COMP2.Value));
        ImprimirTexto(orNormal, 2, 1, 1, 170, 70, CurrToStr(IBTable1PERC3.Value) +'%'+'   '+
                                                  caractersemacento(IBTable1COMP3.Value));

        QryFigura.close;
        QryFigura.ParamByName('produto').Value:=IBTable1COD_PRO.Value;
        QryFigura.Open;

        lavagem     := QryFiguraLAVAGEM.Value;
        lavagem1    := QryFiguraLAVAGEM1.Value;
        alvejante   := QryFiguraALVEJANTES.Value;
        alvejante1  := QryFiguraALVEJANTES1.Value;
        secagem     := QryFiguraSECAGEM.Value;
        secagem1    := QryFiguraSECAGEM1.Value;
        passagem    := QryFiguraPASSAGEM.Value;
        passagem1   := QryFiguraPASSAGEM1.Value;
        lavanderia  := QryFiguraLAVANDERIA.Value;
        lavanderia1 := QryFiguraLAVANDERIA1.Value;

        imglavagem.Picture.LoadFromFile(lavagem) ;
        imglavagem1.Picture.LoadFromFile(lavagem1) ;


        CarregarImagem1(lavagem,lavagem,true);
        ImprimirImagem(1, 100, 90,lavagem);
        CarregarImagem(lavagem1,lavagem1,true);
        ImprimirImagem(1, 40, 90,lavagem1);


        {CarregarImagem(alvejante,alvejante,true);
        ImprimirImagem(1, 100,150,alvejante);
        CarregarImagem(alvejante1,alvejante1,true);
        ImprimirImagem(1, 40,150 ,alvejante1);}

        {CarregarImagem(secagem,secagem,true);
        ImprimirImagem(1, 100, 30,secagem);
        CarregarImagem(secagem1,secagem1,true);
        ImprimirImagem(1, 50, 30,secagem1);

        CarregarImagem(passagem,passagem,true);
        ImprimirImagem(1, 100, 0,passagem);
        CarregarImagem(passagem1,passagem1,true);
        ImprimirImagem(1, 50, 0,passagem1);}

        {CarregarImagem(lavanderia,lavanderia,true);
        ImprimirImagem(1, 100, -30,lavanderia);
        CarregarImagem(lavanderia1,lavanderia1,true);
        ImprimirImagem(1, 50, -30,lavanderia1);}

        QryPais.Close;
        QryPais.ParamByName('pais').Value:=IBTable1COD_PAIS.Value;
        QryPais.Open;

        ImprimirTexto(orNormal, 2, 1, 1, 5, 90, 'Pais de origem:' +QryPaisNOME.Value);

        IBTable1.Next;

        end;

        //abort;
        Imprimir(StrToInt('1'),StrToInt('600'));
        Desativar;
        end
    end;

 

 

 

 

               

 

 

 

[Daniel Simoes]

Verifique se a imagem não é fora do padrão aceito, lembre-se que precisa ser monocromática, e o tamanho tb é um impedimento...

 

Tente carregra-la e imprimi-la com o programa do fabricante...

[darkducke]

Aproveitando este tópico para não abrir outro...

também estou tentando impressão de imagens, o máximo que

consegui foi uns "borrões", estou convertendo imagens BMP monocromáticas que 

já são utilizadas na impressão em outras impressoras que também imprimem somente neste formato...

 

existe algum padrão no tamanho da imagem para converter no arquivo pcx?

estou utilizando o "Easy2Convert BMP to PCX" porem o arquivo pcx gerado da imagem bmp

não é impresso

 

     xImg := 'C:\c.pcx';

     CarregarImagem(xImg, 'TESTE01', True);

     ImprimirImagem(1, 50, 150, 'TESTE01');

 

qual as especificações da imagem BMP  000 x 000 px ? 

e se existe alguma outa forma de converter, ou outro programa..

 

Obrigado!

[Daniel Simoes]

Tente com a imagem que acompanha o demo do ACBr... Alias, no demo do ACBr vc pode testar o envio da imagem...