Question

怎样对StringGrid实现打印预览（用Delphi)？

Answer 1

uses printers;procedure TForm1.Button1Click(Sender: TObject);var I, Start, Stop: Integer; pointX,pointY : Double;beginPrintDialog1.Options := [poPageNums, poSelection];PrintDialog1.FromPage := 1;PrintDialog1.MinPage := 1;PrintDialog1.ToPage := PageControl1.PageCount;PrintDialog1.MaxPage := PageControl1.PageCount;if PrintDialog1.Execute then begin with PrintDialog1 do begin Start := 1; Stop := 1; end; with Printer do begin BeginDoc; for i := Start to Stop do begin StringGrid.PaintTo(Handle, 10, 10); if I <> Stop then NewPage; end; EndDoc; end; end;end;

Answer 2

我要的是打印预览，不是这个呀，请再说明白一点好吗？