Imprimir código de barras com canvas

{Se colocar o Printer.BeginDoc nesse ponto NÃO consigo imprimir o código de barra
Printer.BeginDoc;
}
Barcode1.Text := ´01010101´;
Image1.Picture := nil;
Barcode1.DrawBarcode(Image1.Canvas);

{colocando aqui imprime corretamente}
Printer.BeginDoc;
ajusta.Top := 50;
ajusta.Bottom := 206;
ajusta.Left := 1650;
ajusta.Right := 2227;
Printer.Canvas.StretchDraw(ajusta, Image1.Picture.Graphic);
Printer.EndDoc;

Resumindo: Se atribuir ao TImage antes de iniciar a impressão, tudo certo, mas se atribuir depois do BeginDoc, não assume (imprime). Preciso dessa opção pq terei mais de um código de barra por impressão.
Alguém pode me ajudar?