PrintPage Crear Graphics.DrawString desde una función

[jorge25]

Saludos,

Tengo un problema, y es que estoy creando un reporte con un printDocument. Y en el evento PrintPage llamo a una función que me crea una línea.

Función:

Código:

Private Sub Crear_Cadena(ByVal Str As String)
Dim gr As Graphics
gr.DrawString(str, Font, Brushes.Black, x, y)
end sub

Me da error con la variable gr. dice: Referencia a objeto no establecida como instancia de un objeto, utilice la palabra new para crear instancia de objeto.

He intentado crearla de varias manera pero nada, ¿Cómo creo la variable Graphics que me funcione desde una Función? Gracias por su ayuda.

[Aquaventus]

Hola jorge25, has intentado colocarle la palabra new como te indica el mensaje de error?

Código vb:

Dim gr As New Graphics
 

Saludos!.

[jorge25]

Ya encontré la Solución:

Código vb:

Private Sub PrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
   Create_String(TheString, e.Graphics)
End Sub
 
Private Sub Create_String(ByVal Str As String, ByVal gr As Graphics)
gr.DrawString(str, Font, Brushes.Black, x, y)
End Sub