My printed pages are blank!

OK, for the first time I'm trying to use the PrintDocument function.  Here's my code:

QP.SaveToFile "c:\temp\pages.pdf"

'Call ShellExecute(apiGetWindow(apiGetDesktopWindow(), GW_CHILD), "Print", "c:\temp\pages.pdf", vbNullString, CurrentProject.Path, SW_HIDE)
QP.PrintDocument("Microsoft Office Document Image Writer", 1, 2, QP.PrintOptions(0, 0, "Pages"))

The content exists in the file pages.pdf.  Also, when I then use the commented out line to print the pages.pdf file it works fine.  When I use the PrintDocument command, though, I get two blank pages.

Is there something else I need to do?

I am generating the file in memory completely before I execute my SaveToFile command.  Well, actually I'm opening up and existing form, filling out the fields, adding some extra text, and then saving.  But the saved file looks fine, so that means that I have the two-page form in the object, right?

It turns out that way earlier in the process I had encrypted the document so that it could be opened but not changed.  When I commented out that line then the printing worked.