Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var prn: TPrinter; begin if PrinterSetupDialog1.Execute then begin prn:= TPrinter.Create; try prn.BeginDoc; PrintControl(prn, GroupBox1, 100, 50); prn.EndDoc; finally prn.Free; end; end; end;
procedure TForm1.Button1Click(Sender: TObject); var prn: TPrinter; begin if PrinterSetupDialog1.Execute then begin prn:= TPrinter.Create; try prn.BeginDoc; PrintControl(prn, GroupBox1, 100, 50); prn.EndDoc; finally prn.Free; end; end; end;