各位先進好！  我在panel上放置若干個Edit,Lable和一個StringGrid  現在想把panel上的這些資料打印,但是:  1)不知道如何將panel上的Edit,Lable打印  2)StringGrid帶有卷軸,如果直接打印只能打印部分資料   (我沒有設計過需要打印的程式，這個問題不知屬於較簡單,還是較複雜  ,對我來說是老虎吃天─無從下手.) 希望各位先進指點,謝謝!

Print a TStringGrid: http://www.swissdelphicenter.ch/en/showcode.php?id=769

uses 
  Printers;     procedure PrintGrid(sGrid: TStringGrid; sTitle: string); 
var 
  X1, X2: Integer; 
  Y1, Y2: Integer; 
  TmpI: Integer; 
  F: Integer; 
  TR: TRect; 
begin 
  Printer.Title := sTitle; 
  Printer.BeginDoc; 
  Printer.Canvas.Pen.Color  := 0; 
  Printer.Canvas.Font.Name  := 'Times New Roman'; 
  Printer.Canvas.Font.Size  := 12; 
  Printer.Canvas.Font.Style := [fsBold, fsUnderline]; 
  Printer.Canvas.TextOut(0, 100, Printer.Title); 
  for F := 1 to sGrid.ColCount - 1 do  
  begin 
    X1 := 0; 
    for TmpI := 1 to (F - 1) do 
      X1 := X1   5 * (sGrid.ColWidths[TmpI]); 
    Y1 := 300; 
    X2 := 0; 
    for TmpI := 1 to F do 
      X2 := X2   5 * (sGrid.ColWidths[TmpI]); 
    Y2 := 450; 
    TR := Rect(X1, Y1, X2 - 30, Y2); 
    Printer.Canvas.Font.Style := [fsBold]; 
    Printer.Canvas.Font.Size := 7; 
    Printer.Canvas.TextRect(TR, X1   50, 350, sGrid.Cells[F, 0]); 
    Printer.Canvas.Font.Style := []; 
    for TmpI := 1 to sGrid.RowCount - 1 do  
    begin 
      Y1 := 150 * TmpI   300; 
      Y2 := 150 * (TmpI   1)   300; 
      TR := Rect(X1, Y1, X2 - 30, Y2); 
      Printer.Canvas.TextRect(TR, X1   50, Y1   50, sGrid.Cells[F, TmpI]); 
    end; 
  end; 
  Printer.EndDoc; 
end;     //Examplem:     procedure TForm1.Button1Click(Sender: TObject); 
begin 
  PrintGrid(StringGrid1, 'Print Stringgrid'); 
end; 

--- 歡迎光臨 KTop 研究院--<-<-<@