Exportar Tacbrbarcode Para Bitmap

[PauloAlexandre]

Boa tarde pessoal!

 

eu consigo exportar ou copiar o TACBrBarCode para um Bitmap

para depois imprimir com

Printer.Canvas.StretchDraw(rect(0, BarCode.Height, BarCode.Width, 0),BarCode);

o que vocês sugerem??

[PauloAlexandre]

Consegui fazer a impressão, mas fica pequeno, alguma dica?

 BarCode := TACBrBarCode.Create(nil);
  BarCode.Typ := bcCodeEAN8;
  BarCode.Text := '10203040';
  BarCode.BarCode.Width := 500;
  BarCode.BarCode.Height := 100;
  BMP := TBitmap.Create;
//  bmp.HandleType := bmDIB;
  BMP.Width := BarCode.Width;
  BMP.Height := BarCode.Height;
  BarCode.DrawBarcode(BMP.Canvas);

  Printer.BeginDoc;
  X := 200;
  Y := 200;
  for I := 0 to txt.Count-1 do
    if (not Printer.Aborted) then
    begin
      Printer.Canvas.TextOut(X, Y, txt.Strings[i]);
      Y := Y + 80;
      if (Y > (Printer.PageHeight - 300)) then
      begin
        Y := 200;
        Printer.NewPage;
  //          Sleep(1000);  // to give you time to abort!
      end;
    end;

  Printer.Canvas.Draw(X, Y, BMP);

  if (not Printer.Aborted) then Printer.EndDoc;

[Daniel Simoes]

É bem mais simples... Veja o exemplo em ACBrBoletoFCQuickFr.pas

     ACBrBarCode1.Typ  := bcCode_2_5_interleaved ;
     ACBrBarCode1.Text := CodBarras;
     BMP := TBitmap.Create ;
     try
        BMP.Width  := imgBarra.Width ;
        BMP.Height := imgBarra.Height ;
        ACBrBarCode1.DrawBarcode(BMP.Canvas);

        imgBarra.Picture.Bitmap := BMP ;
      imgBarra4.Picture.Bitmap := BMP;
     finally
        BMP.Free ;
     end ;

[PauloAlexandre]

Não funcionou desse jeito pq não estou utilizando nenhum gerador de relatório, estou utilizando direto na impressora.

 

Funcionou assim

  Printer.Canvas.StretchDraw(
    Rect(X, Y, X +(BMP.Width*Scale), Y+(BMP.Height*Scale)), BMP);

Obrigado!