Please use Print method of a barcode component to print the barcode symbol to paper. The TImage control isn't required.
Printer.ActivePrinter.SelectDPI(600, 600);
Printer.BeginDoc;
... { Print other content }
BarcodeFmx2D_QRCode1.Print('1234567890', claBlack, claWhite, true, 20, 20, 0.3);
... { Print other content }
Printer.EndDoc;
or
Printer.ActivePrinter.SelectDPI(600, 600);
Printer.BeginDoc;
... { Print other content }
with BarcodeFmx2D_QRCode1 do
begin
ShowQuietZone := true;
BarColor := claBlack;
SpaceColor := claWhite;
Barcode := '1234567890';
Print(20, 20, 0.3);
end;
... { Print other content }
Printer.EndDoc;