各位高手，
我想將Quickrep指定印表機列印出來報表，
寫的程式碼如下:
uses Printers
procedure TFmC04.Button1Click(Sender: TObject);
var
idx: integer;
begin
idx := Printer.Printers.IndexOf('Adobe PDF');
if idx = -1 then raise Exception.Create('找不到印表機');
Printer.PrinterIndex := idx;
showmessage (inttostr(idx));
Printer.BeginDoc;
QrptC04.PrinterSettings.PrinterIndex := idx;
Printer.EndDoc;
end;
會出現如下的訊息
Access violation at address 0052DD86 in module 'Project1.exe'. Read of address 000002DC
我的程式碼應該如何改呢?

這種寫法你參考看看，修改一下 
uses
QuickRpt;
var
AReport:= TQReport;
if MessageDlg('即將列印ＸＸ，請選擇列印的印表機。', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
QReport := TQuickRep.Create(self);
try
QReport.PrinterSetup;
//PrinterIndex := QReport.Printer.Printers.IndexOf('印表機名稱'); //指定印表機 by name
PrinterIndex := QReport.PrinterSettings.PrinterIndex;
finally
QReport.Free;
end;
end
else
Exit;
if PrinterIndex = -1 then Exit;//按下取消 (PrinterIndex = -1)
//列印
AReport:= TQReport.Create(self);
try
AReport.PrinterSettings.PrinterIndex := PrinterIndex; //指定印表機
AReport.Print;
finally
AReport.Free;
end;