This is the sequence of commands that I use to create my CDFs.
testCDF := DynamiModule[DynamicModule[... some nice code]
nb = CreateDocument[{testCDF}
,Visible -> False
,WindowTitle->"Export Test"
,WindowMargins->Automatic
,WindowSize->Automatic
,WindowElements->{"VerticalScrollBar","HorizontalScrollBar"}
,ShowCellBracket->False
,Deployed->True
];
(*options to remove wolfram toolbar*)
SetOptions[nb, PrivateNotebookOptions -> {"PluginToolbarEnabled" -> False}];
CDFDeploy[NotebookDirectory[] <> "ExportTests2.cdf",
nb,
"Method"->"Standalone",
"Target"->"PlayerPro"
];
NotebookClose[nb];
The command to remove Wolfram bar is commented.