Haz una búsqueda en los foros por TPrintDialogs y encontrarás no pocos resultados.
Por ejemplo:
Código Delphi
[-]
if (PrinterDialog.execute) then begin
RvRenderPrinter1.FirstPage := PrinterDialog.FromPage;
RvRenderPrinter1.LastPage := PrinterDialog.ToPage;
RvRenderPrinter1.Render(NDRStream);
end;