問題一下 我在form1 內寫了一個botton 按下去是列印 procedure TForm1.Button8Click(Sender: TObject); begin QuickReport1.show; end; ----> 按一下時會出現你報表的設計畫面 有什麼方法可以直接列印呢... 會打開QuickReport1 在做一下button procedure TQuickReport1.Button1Click(Sender: TObject); begin QuickRep1.Preview; end; 這樣子 您就像個小孩子,世界上最遙遠的愛情就是我在你面前你卻不知道我愛你(小懷子)

procedure TQuickReport1.Button1Click(Sender: TObject); begin QuickRep1.Print;//會去抓你預設的印表機印 end; TRY TRY SEE

我是意思是 不要出現我在delphi 內設計報表的畫面 procedure TForm1.Button8Click(Sender: TObject); begin QuickReport1.show; <-----這能改直接列印嗎不要在去打開QuickReport1 end; 因為不同form 所以不能用QuickRep1.Preview; 您就像個小孩子,世界上最遙遠的愛情就是我在你面前你卻不知道我愛你(小懷子)

我的慣用做法是 :    假設你放 Report 的 Form 叫 Form2, 你的 Report 叫 QuickReport1

procudure TForm1.GoPrint(isPrint : Boolean);
begin
  with TForm2.Create(Self) do
  try
    if isPrint then
    begin
       QuickReport1.PrinterSetup; //選 printer, 設定等等
       if QuickReport1.Tag = 0 then // 沒按取消
         QuickReport1.Print
    end
    else
      QuickReport.Preview;
  finally  // 完成後
     free; // 消掉 Form2
  end;
end;    procedure TForm1.PrintBtnClick(Sender : TObject);
begin
  GOPrint(True); // Print, not preview
end    procedure TForm1.PreviewBtnClick(Sender : TObject);
begin
  GoPrint(False);// Preview, not print
end;

註 : 在 TForm1 上面 private 要加上 : procedure GoPrint(isPrint : Boolean); 若你放 QuickReport 不是 叫 Form2, 或 Report 名不同，請自行改名。 發表人 - Justmade 於 2003/03/21 15:55:01

procedure TForm1.Button8Click(Sender: TObject); begin Form2.Query1.open;//<-QuickReport1的DataSet要先open才有資料 Form2.QuickReport1.Print; //<-Form2是QuickReport1所在的Form end; TRY TRY SEE 發表人 - chih 於 2003/03/21 15:51:21

Justmade , chih 謝謝你們 ^_^ 您就像個小孩子,世界上最遙遠的愛情就是我在你面前你卻不知道我愛你(小懷子)

ticky : 麻煩你如有報表方面的問題 請到(報表設計開發討論區)發問 謝謝 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@