Listo
caso resuelto:
Para quien le sirva el codigo:
Código Delphi
[-]
if thoja.Text='CARTA' THEN
Form29.QuickRep1.PrinterSettings.PaperSize:=Letter
ELSE
Form29.QuickRep1.PrinterSettings.PaperSize:=Legal;
Y Declaren estas uses QRPrntr
Gracias a todos los q me colaboraron