Glad to share... I had this code to do my online nb printing (in PDF) :

SetOptions[SelectedNotebook[],PrintingStyleEnvironment → "Printout", ShowSyntaxStyles → True]
CloudExport[EvaluationNotebook[], "PDF", Permissions → "Public"]

And if I want to view all hidden cell before printing, I'd run this one too (then Select all cells [Ctrl+A] , then use menu to Expand all selected cells) :

SetOptions[EvaluationNotebook[], ShowCellBracket → True]

Hope it helps.

Ref : multiple web search & trials. /(^_^)

I sent in a bug report.

I was going to suggest that you download the notebook and then open it up from the CDFPlayer and then print it from there (though there may be some Version 10 incompatibilities it will open up and show most of what you have created well). However, I tried this and when one attempts to open such a notebook in CDFPlayer (at least on OSX) nothing happens. This is certainly a bug and I will report it. If you do have Mathematica then it will open there and you can print it that way.