Tienes que utilizar el objeto PrintDialog, que esta en la pestaña Dialogs.
Te enseño mi codigo para que te sea más facil, yo asigno lo que devuelve el PrintDialog a el Objeto del Crystal Report:
PrintDialog1.Options := [poPageNums, poWarning];
PrintDialog1.FromPage := Fmcrystal.CrystalReport1.PrintOptions.StartPage;
PrintDialog1.ToPage := Fmcrystal.CrystalReport1.PrintOptions.StopPage;
PrintDialog1.Copies := Fmcrystal.CrystalReport1.PrintOptions.Copies;
PrintDialog1.MaxPage := 65535;
if (Fmcrystal.CrystalReport1.PrintOptions.Collation <> DefaultCollation)
then PrintDialog1.Collate := Boolean(Ord(Fmcrystal.CrystalReport1.PrintOptions.Collation));
//Mostrar el Print Dialog
if PrintDialog1.Execute then
begin
{Asigno lo que devuel el PrintDialog}
Fmcrystal.CrystalReport1.PrintOptions.StartPage :=PrintDialog1.FromPage;
Fmcrystal.CrystalReport1.PrintOptions.StopPage :=PrintDialog1.ToPage;
Fmcrystal.CrystalReport1.PrintOptions.Copies := PrintDialog1.Copies;
Fmcrystal.CrystalReport1.PrintOptions.Collation := TCrCollation(Ord(PrintDialog1.Collate));
Fmcrystal.CrystalReport1.Printer.GetCurrent(True);
end;
Un Saludo. David.
