delphi 打印窗体

Question

我想打印一个窗体，但从来没写过这样的代码，请问谁能告诉我怎么写吗？

Answer 1

如果Form.Print效果不满意，可以参考其代码调整一下

Answer 2

thank you ,这样是可行，只是没办法选择想要的打印机打印，
有什么办法改变默认的打印机吗？

Answer 3

procedure TForm1.Button1Click(Sender:TObject);var
  I, Start, Stop: Integer;
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount;
if PrintDialog1.Execute then  begin
   { determine the range the user wants to print }
    with PrintDialog1 do 
    begin
      if PrintRange = prAllPages then        begin
        Start := MinPage - 1;
        Stop := MaxPage - 1;
      end
      else if PrintRange = prSelection then
      begin
        Start := PageControl1.ActivePage.PageIndex;
        Stop := Start;
        end
      else  { PrintRange = prPageNums }
      begin
        Start := FromPage - 1;
        Stop := ToPage - 1;
      end;
    end;
    { now, print the pages }    with Printer do
    begin
      BeginDoc;
      for I := Start to Stop do
      begin
        PageControl1.Pages[I].PaintTo(Handle, 10, 10);
        if I <> Stop then
          NewPage;
      end;
      EndDoc;
    end;
  end;end;