Tu auras besoin d'un TQRPreview et d'un bout de code :


var
qrp : TQRPrinter;
begin

if OpenDialog1.Execute then
begin
qrp := TQRprinter.Create(nil);