Antes de mandar a imprimir tenes que cambiar el nombre del titulo de la aplicación (title)

ej..

Private Sub Command1_Click()
Dim Nombre
Nombre = VB.App.Title
VB.App.Title = "Imprimiendo Command1" 'le cambio el nombre
DoEvents

'lineas de código de impresora

VB.App.Title = Nombre 'le devuelvo el nombre original
End Sub

OJO QUE ESTO SOLO FUNCIONA CUANDO LA APLICACION ESTA COMPILADA (EXE)

Fernando Gorza
gorza@surlan.com.ar