Por si a alguien le sirve, les comento que la funcion esta correcta solo consideren lo siguiente para quitar los warning en vb 2010:
Donde se declara la variable di haganlo de la siguiente forma:
Dim di As New DOCINFOW()
Y al final de la funcion SendStringToPrinter agregen un:
Return True
