var BMP : TBitmap; StoredUnits : TQRUnit; begin frmWT4107B0.Prepare; StoredUnits := frmWT4107B0.Units; frmWT4107B0.Units := Pixels; try for i := 1 to frmWT4107B0.QRPrinter.PageCount do begin BMP := TBitmap.Create; BMP.Width := Round(frmWT4107B0.Page.Width); BMP.Height := Round(frmWT4107B0.Page.Length); frmWT4107B0.QRPrinter.PageNumber := i; BMP.Canvas.Draw(0, 0, frmWT4107B0.QRPrinter.Page); BMP...