fai così, aggiungi un controllo printdocument e assegna l'evento printpage. Poi ti inserisci il codice. Ti posto un esempio:

codice:
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim space As String = " "
        Dim codice As Integer = IdclienteTextBox.Text
        Dim codiceassoluto As Integer
        codiceassoluto = Abs(codice)
        Dim Font1 As New Font("Verdana", 18, FontStyle.Bold)
        Dim font2 As New Font("Verdana", 10, FontStyle.Bold)
        Dim font3 As New Font("Verdana", 10, FontStyle.Regular)
        Dim font4 As New Font("verdana", 7, FontStyle.Italic)
        e.Graphics.DrawString("Cod. Cliente:", font4, Brushes.Black, 10, 10)
        e.Graphics.DrawString(codiceassoluto, font4, Brushes.Black, 110, 10)
        e.Graphics.DrawString("SCHEDA CLIENTE:", Font1, Brushes.Black, 50, 100)
        e.Graphics.DrawString(Ragione_socialeTextBox.Text, Font1, Brushes.Black, 310, 100)
        e.Graphics.DrawString("Ragione sociale completa:", font2, Brushes.Black, 70, 150)
        e.Graphics.DrawString(Ragione_socialeTextBox.Text + space + Ragione_sociale2TextBox.Text, font3, Brushes.Black, 350, 150)
        e.Graphics.DrawString("Partita IVA:", font2, Brushes.Black, 70, 180)
        e.Graphics.DrawString(Partita_ivaTextBox.Text, font3, Brushes.Black, 350, 180)
        e.Graphics.DrawString("Codice Fiscale:", font2, Brushes.Black, 70, 210)
        e.Graphics.DrawString(Codice_fiscaleTextBox.Text, font3, Brushes.Black, 350, 210)
        e.Graphics.DrawString("Affidabile:", font2, Brushes.Black, 70, 240)
        If AffidabileCheckBox.Checked = True Then
            Dim affidabile As String = "Si"
        End If
        'e.Graphics.DrawString(, font3, Brushes.Black, 350, 210)
        e.Graphics.DrawString("Indirizzo:", font2, Brushes.Black, 70, 270)
        e.Graphics.DrawString(IndirizzoTextBox.Text, font3, Brushes.Black, 350, 270)
        e.Graphics.DrawString("C.A.P.:", font2, Brushes.Black, 70, 300)
        e.Graphics.DrawString("Comune:", font2, Brushes.Black, 200, 300)
        e.Graphics.DrawString("Provincia:", font2, Brushes.Black, 500, 300)
    End Sub
devi anche importare

codice:
Imports System.Drawing.Printing