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.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'); reg.WriteString('AutosaveFilename', 'xx.pdf'); 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;
edit1.Text := docu;
showmessage('Archivo Scaneado en PDF');
end;