http://delphi.ktop.com.tw/topic.php?topic_id=39920 在站上有找到相關資料了，可是在下拙劣不會使用.. 是否可以簡單說明如何使用。 感謝啦!!

zuyan_chang您好 在表單上放置StringGrid元件,及一個Button 在ButtonClick事件裡 呼叫hagar大大的 PrintGrid(StringGrid1,'測試清單'); 在ButtonClick事件的前面複製貼上PrintGrid那段副程式

procedure PrintGrid(sGrid: TStringGrid; sTitle: String);
var
  ...
begin
...
end;
procedure TForm1.OnButtonClick(Sender:TObject)
begin
  PrintGrid(StringGrid1,'測試清單');
end;

引言: zuyan_chang您好 在表單上放置StringGrid元件,及一個Button 在ButtonClick事件裡 呼叫hagar大大的 PrintGrid(StringGrid1,'測試清單'); 在ButtonClick事件的前面複製貼上PrintGrid那段副程式

procedure PrintGrid(sGrid: TStringGrid; sTitle: String);
var
  ...
begin
...
end;
procedure TForm1.OnButtonClick(Sender:TObject)
begin
  PrintGrid(StringGrid1,'測試清單');
end;

在實作之後發現幾個問題 1. 需use Printer 2. 在Form 需宣告procedure PrintGrid(sGrid: TStringGrid; sTitle: String); 3. 在執行後有一個錯誤訊息： [Fatal Error] Unit1.pas(7): File not found: 'Printer.dcu' 針對第3個問題該如何解決，我目前使用的版本為 D7

引言:

引言: zuyan_chang您好 在表單上放置StringGrid元件,及一個Button 在ButtonClick事件裡 呼叫hagar大大的 PrintGrid(StringGrid1,'測試清單'); 在ButtonClick事件的前面複製貼上PrintGrid那段副程式

procedure PrintGrid(sGrid: TStringGrid; sTitle: String);
var
  ...
begin
...
end;
procedure TForm1.OnButtonClick(Sender:TObject)
begin
  PrintGrid(StringGrid1,'測試清單');
end;

在實作之後發現幾個問題 1. 需use Printer 2. 在Form 需宣告procedure PrintGrid(sGrid: TStringGrid; sTitle: String); 3. 在執行後有一個錯誤訊息： [Fatal Error] Unit1.pas(7): File not found: 'Printer.dcu' 針對第3個問題該如何解決，我目前使用的版本為 D7

uses Printers; 學而時習之不亦樂乎!

感謝各位.. 原來少了個 's' 也給其他新手參考..