TFile *f1 = TFile::Open("hsimple.root"); TCanvas c1; c1.Print("hsimple11.ps["); for(auto k : *f1->GetListOfKeys()) { TKey *key = static_cast(k); TClass *cl = gROOT->GetClass(key->GetClassName()); if (!cl->InheritsFrom("TH1")) continue; TH1 *h = key->ReadObject(); h->Draw(); c1.Print("hsimple11.ps"); } c1.Print("hsimple11.ps]");