Si utilizas QuickReports, en lugar de usar un TPrintDialog, te recomiendo hacer lo siguiente:
Código:
begin
QuickRep1.Tag := 0;
QuickRep1.PrinterSetup;
if QuickRep1.Tag = 0 Then
QuickRep1.Print;
end;
Este "hermoso" código es lo que nos tiene acostumbrado QuickReport
Saludos!