通过以下语句 QuickRep.QRPrinter.Load('C:\test.QRP'); 显示出保存为QRP的文件，可是打印按钮可用，却不能打印出来；还有就是setup按钮被禁用了，不知怎么回事。请高人指点。

请各位高人指点。

hi GreenTea 大大可以在說明清楚一點嗎? 不太懂你的意思耶~ 如果圖中的程式你有Source的話,可以改此按鈕的屬性 Enabled:True//開啟 Enabled:False//關閉(跟圖一樣灰色) 如果沒有Source的話,那就要滿意他所需要的條件, 它才會開起!!

------
Xax

20052020 大大！ 这是delphi自代的QuickRep控件，我用QuickRep.QRPrinter.Load(filename); 后上面那个按钮就不可以用了，不知道有什么办法解除禁用。不知是否说明白了。

你用的是delphi5嗎? 我的delphi7沒有 你試過 Printsetup屬性 Printsetup.Enabled:True//開啟 Printsetup.Enabled:False//關閉(跟圖一樣灰色)

------
Xax

GreenTea 您好 1.確認一下你指定的印表機權限，如果有權限的限制那個設定會Disable，請MIS把權限開高一點就可以了。 2.Timer Default True

 
procedure TfrmEC2_RPT_WININVNO.Timer1Timer(Sender: TObject);
var
  BtnHandle:integer;
  MyBtnHandle:HWND;
  function GetBtnHandle(hwnd:Integer):Boolean;stdcall;
  var
    Buffer: array[0..255] of Char;
  begin
    Result := True; //設定為True才會再找下一個
    if IsWindowEnabled(hwnd)= False then//判斷是否有enable的東東
    begin
      EnableWindow(hwnd,True);
    end;
  end;    begin
  BtnHandle:=getforegroundwindow;
  EnumChildWindows(BtnHandle,@GetBtnHandle,integer(@BtnHandle));
end;    procedure TfrmEC2_RPT_WININVNO.QuickRepAfterPreview(Sender: TObject);
begin
  Timer1.Enabled := False; //如果不關，主Form有Disable的功能也可能會Enable
end;

你試試看可不可行 總是在疑問中尋問題;就可在技術中得技巧 發表人 - T.J.K 於 2005/10/26 17:25:04

我用的是delphi7。请问Printsetup的属性是否是指QuickRep.QRPrinter.PrintSetup？可是它没有Printsetup.Enabled的属性。请指点。 發表人 - GreenTea 於 2005/10/26 18:07:34 發表人 - GreenTea 於 2005/10/26 18:35:32

1.如果你用的作業系統是xp的,那有可能有權限的限制到，請把權限開高一就 可以了(請確定有沒有辦法列印)。 2.如果還是不可以那麼delphi7重灌看看。 第一個可能性比較大

------
Xax

各位大大，非常感谢你们对我的帮助。小第我经过无数次的尝试终于可以了赫赫。加了句代码就可以了。 QuickRep.QRPrinter.Create;(此句为新加) QuickRep.QRPrinter.Load(FileName); QuickRep.QRPrinter.Preview; 在此，也希望这篇文档能帮助其他人。