Prueba con esto:
Código Delphi
[-]
begin
QuickRep1.Tag := 0;
QuickRep1.PrinterSetup;
if QuickRep1.Tag = 0 Then
QuickRep1.Print;
end;
Tengo anotado, que este código lo publico
Federico Firenze, Delphi.com.Ar.
Cabeza de lista de estos foros de sobra conocido por todos.
Un Saludo.