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;
