// vor dem Druck Seite einrichten 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  F1Book1.endedit; 
  F1Book1.FilePageSetupDlg; 
  F1Book1.FilePrint(false); 
end; 
 
// einen bestimmten Bereich drucken 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  F1Book1.endedit; 
  F1Book1.PrintArea := 'A2:C3'; 
  F1Book1.FilePrint(false); 
end; 
 
// mit Drucker-Dialog drucken 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  F1Book1.endedit; 
  try 
    F1Book1.FilePrint(true); 
  except 
    // hier evtl. auf Abbruch reagieren 
    // z.B.: 
    // showmessage('Es wurde nichts gedruckt'); 
  end; 
end;