Número de página en qr

Puedes usar un componente TQrSysData y asignar
Data = qrsPageNumber
Text = 'Página '
En el evento Onprint de este puedes poner algo como
Value:=Format(value+' de %d',[QRPreview1.QRPrinter.AvailablePages]);
o tambien poner en el onprint de un qrLabel
Value:=Format('Página %d de %d',[QRPreview1.PageNumber,QRPreview1.QRPrinter.AvailablePages]);

Hi,
Mira, tienes que hacer botón derecho en el QuickReport que generas y te vas a Report Settings. Ahí tienes las opciones para Page Header (página arriba) o Page Footer (página al final).
Porba con esto que tiene que andar. Cualquier consulta no dudes en preguntarme.
Nahuelon..

Proba esto en el evento del tu botón Imprimir:
Reporte.Prepare;
Reporte.QRLabel1.Caption := 'de ' + IntToStr(Reporte.QRPrinter.PageCount);
Reporte.QRPrinter.Free;
Reporte.QRPrinter:=Nil;
Reporte.Preview; o Reporte.Print;
Cualquier cosa pregunta, Atentamente. DX.
PD: No te olvides de finalizar la pregunta.