type
TForm1 = class(TForm)
ABSTable1: TABSTable;
ABSDatabase1: TABSDatabase;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
btnprint: TBitBtn;
PrintDialog1: TPrintDialog;
PrinterSetupDialog1: TPrinterSetupDialog;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
btnsair: TBitBtn;
Bevel1: TBevel;
Bevel2: TBevel;
Label1: TLabel;
Image1: TImage;
Image2: TImage;
Bevel3: TBevel;
Image3: TImage;
procedure btnprintClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnprintClick(Sender: TObject);
begin

if
(PrinterSetupDialog1.execute)and(PrintDialog1.execute)
Then
Print;

end;

end.