changing print job name

The default job name when printing from xojo is the application name.
I need to set a different name, so tried this approach:

dim s as string = p.SetupString
dim version as string = “Full Appname”
s=Replace(s,version,“New Name”)
p.SetupString = s

When I break, I can see the name being correct in the printer setupstring,
but the print job still arrives in the print queue with the App name, not the New name.

Any ideas how to fix this?

As a workaround I change the title of the app before printing and restore it after, but this seems a bit rude way to do it