Estaba buscando por los foros pq he tenido el mismo problema q tú. Sé q es un poco tarde pero a mí me ha valido con esto:
if report.PrepareReport then begin
report.PrintOptions.ShowDialog := false;
report.PrintOptions.Copies := 1;
report.PrintOptions.PrintPages := report.PrintOptions.PrintPages;
report.Print;
end;
Lo dejo por si alguien busca sobre este tema alguna vez
Un saludo.
|