Existe algun codigo VB6 para hacer esto

Versión para imprimir