I wanted to distinguish between different print jobs. I tried to find a way to set the print job name that appears in the printer queue, but even some nasty API calls didn’t work well. I found a simple trick, though it works only after compiling to an EXE:
Dim sAppTitle As StringsAppTitle = App.TitleApp.Title = "What ever Print Job Name you wish"' Start Printing....' End PrintingPrinter.EndDocApp.Title = sAppTitle