Hola!
Resulta Que uso este codigo y no funciona es para imprimir
El error que me da dice que no se pudo encontrar la columna ID, los parametros son Columname
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim ce = Me.PinturasDataGridView.CurrentCell.RowIndex
e.Graphics.DrawString(Me.PinturasDataGridView.Item(Me.DataGridViewTextBoxColumn1.HeaderText, ce).Value.ToString, SystemFonts.DefaultFont, Brushes.Black, 200, 200)
Dim ce1 = Me.PinturasDataGridView.CurrentCell.RowIndex
e.Graphics.DrawString(Me.PinturasDataGridView.Item(Me.DataGridViewTextBoxColumn2.HeaderText, ce1).Value.ToString, SystemFonts.DefaultFont, Brushes.Black, 250, 200)
Dim ce2 = Me.PinturasDataGridView.CurrentCell.RowIndex
e.Graphics.DrawString(Me.PinturasDataGridView.Item(Me.DataGridViewTextBoxColumn3.HeaderText, ce2).Value.ToString, SystemFonts.DefaultFont, Brushes.Black, 300, 200)
Dim ce3 = Me.PinturasDataGridView.CurrentCell.RowIndex
e.Graphics.DrawString(Me.PinturasDataGridView.Item(Me.DataGridViewTextBoxColumn4.HeaderText, ce3).Value.ToString, SystemFonts.DefaultFont, Brushes.Black, 350, 200)
Dim ce4 = Me.PinturasDataGridView.CurrentCell.RowIndex
e.Graphics.DrawString(Me.PinturasDataGridView.Item(Me.DataGridViewTextBoxColumn5.HeaderText, ce4).Value.ToString, SystemFonts.DefaultFont, Brushes.Black, 400, 200)
Dim ce5 = Me.PinturasDataGridView.CurrentCell.RowIndex
e.Graphics.DrawString(Me.PinturasDataGridView.Item(Me.DataGridViewTextBoxColumn6.HeaderText, ce5).Value.ToString, SystemFonts.DefaultFont, Brushes.Black, 450, 200)
End Sub
