Hi, sorry for the multiple posting ;) Here is the way to do it: pdf(file="file1.pdf") dev.control(displaylist='enable') plot(1:10) dev.copy(pdf,file="file2.pdf") points(2,3) dev.off() dev.off() Giampiero