[shoulder]

Primero Gracias por responder, seteo en el qreport el pdfcreator y me lo coloca en el printdialog pero no hay forma que pueda setaer donde tiene que grabarlo. uso delphi7 windows 7 paso el codigo no encuentro el error.

Código Delphi [-]
var
  Image: TBitmap;
  i:integer;
  a: String;
  reg : TRegistry;
begin

    reg := TRegistry.Create(KEY_READ);
    reg.Access := KEY_WRITE;
    reg.RootKey := HKEY_CURRENT_USER;
//     if not reg.OpenKey('Software\PDFCreator\program', false) then
    if not reg.OpenKey('Software\PDFCreator.net', false) then
    begin
        showmessage('Can''t find ' + '''HKEY_CURRENT_USER\Software\PDFCreator\program'''  );
        exit;
    end;

   ///
    reg.WriteString('Autosave', '1');
    reg.WriteString('UseAutosaveDirectory', '1');
    reg.WriteString('AutosaveDirectory', 'C:\control\scanner'); // directorio de salida
    reg.WriteString('AutosaveFilename', 'xx.pdf'); // filename here
    reg.WriteString('AutosaveFormat', '0');

    
     if GetCurrent(Image) then
     begin
      Image.SaveToFile('c:\certificacion\scanner\'+trim(edit1.text)+'.bmp');

      QuickReport1:=TQuickReport1.Create(self);

     quickreport1.QRImage1.Picture.LoadFromFile('c:\control\scanner\'+trim(edit1.text)+'.bmp');
      quickreport1.QRImage1.Repaint;
     quickreport1.Prepare;
    
     QuickReport1.Printersettings.printerindex :=  printer.printers.indexof('PDFcreator') ;

     quickreport1.Preview;

   QuickReport1.Free;
   QuickReport1 := nil;

 //  BorrarArchivo('c:\control\scanner\'+edit1.text+'.bmp');
   edit1.Text := docu;
   showmessage('Archivo Scaneado en PDF');

end;