Printing GraphSheet to a pdf file

["Data Analytics Corp." <dataanalytics@earthlink.net>]

Good morning,

I want to do something very simple.  I created a function to produce 
multiple graphs, say 25.  All 25 are visible as separate pages.  Using 
some previous suggestions for how to move about the pages 
programmatically, I can write another function to select specific pages, 
say page 15.  I now want to print that specific page to a pdf file.  The 
function I tried is:
fn.pdf <- function(){
  pdf.graph(file = "test.pdf")
  guiModify("GraphSheet", Name = "guiGetGSName(), CurrentPage = "Page15")
  guiPrint("GraphSheet")
  dev.off()
}

The file test.pdf is created, but it's empty.  How do I print page 15 to 
the pdf file?  Any suggestions?
Thanks,

Walt Paczkowski