Visual Basic - Cambiar nombre en la cola de impresion

Como se puede cambiar el nombre en la cola de la impresora para que no salga en todos los listados el nombre "Microsoft Visual Basic" y si el que yo desee. El programa está hecho en vb6
Ya he probado con App.name="mi listado" y no funciona
Gracias anticipadas

En la carga del formulario o al hacer clic para imprimir
dim Título as string
' configuración del título máximo 30 caracteres
Título = "mi listado" & " " & txtxxx.text & " " & lblxxx ' etc
App.title = Titulo
Todo esto siempre antes del Printer.EndDoc
IMPORTANTE
compilar el exec del proyecto