RE:TRAER PRINTER POR DEFECTO
Es más sencillo de lo que parece.
Crea una ventana, dentro de la ventana un botón, y asociale el siguiente código en el evento clicked:
MessageBox("Impresora", ProfileString("win.ini", "windows", "device", "") )
El mensaje te mostrará una cadena de texto con tres valores separados por coma: el nombre de la impresora, el nombre del driver de la impresora, y la ruta a la impresora (ya sea local, en cuyo caso mostrará el puerto, o en red, en cuyo caso mostrará la ruta de red).
Las aplicaciones modernas deberían acceder al registro de Windows en vez de al fichero WIN.INI, pero por compatibilidad con aplicaciones antiguas este sistema sigue funcionando.
Espero haberte ayudado.
Saludos, Juan