Visual Basic - Impresora predeterminada

Hola a todos estuve buscando en los foros una manera de predeterminar una impresora por medio de visual basic y no encontre alguna que sea facil y concisa para hacerlo.La mayoria no te daba una respuesta concreta.Ell problema surgio como a varios en el foro; por tener distintas configuraciones de hojas en los reportes hechos con el cristal y cuando le das imprimir los mostraba con el formato de la impresora predeterminada.

Lo unico que hay que hacer es muy sencillo colocar un common Dialog en el formulario y por medio de codigo o en la propiedad de Common Dialog establecer la propiedad Flags a 64 y llamar al procedimiento por medio de un evento o control.
por ejemplo:

Private sub Command1_Click()
CD1.Flags = 64 ' CD1 = Common Dialog
CD1.ShowPrinter
End sub

Esto se debe a que 64 = 64 &H40& cdlPrintSetup que hace que el sistema muestre el cuadro de diálogo Configurar impresora en lugar de Imprimir. Use este Flag cuando lo que desea es cambiar la impresora predeterminada.

Es muy sencillo espero que alguien aun le sirva por alla. Nos vemos