Hola Tompoches,
Este es el código para imprimir un textbox, lo puedes usar como punto de partida.
Nota que este código solo imprime una pagina, es decir que si el documento o tus datos ocupan mas de una solo saldrá la primera. pero como te dije, usalo de guia.
Imports System.Drawing.Printing
Public Class Form1
Dim prnTxt As New PrintDocument
Private Sub ImprimirTexto(ByVal sender As System.Object, ByVal ePrint As PrintPageEventArgs)
ePrint.Graphics.DrawString(TextBox1.Text, New Font("Arial", 11, FontStyle.Regular), _
Brushes.Black, 100, 100)
ePrint.HasMorePages = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim prnTxt As New PrintDocument
AddHandler prnTxt.PrintPage, AddressOf Me.ImprimirTexto
prnTxt.Print()
Catch ex As Exception
MsgBox("Ex : " & ex.ToString)
End Try
End Sub
End Class
Recuerdos,
Ab
