Hope this helps ...............
Sub PrintIt(ByVal e As System.Drawing.Printing.PrintPageEventArgs, byval nRow as Integer,ByVal nY As Integer)
Dim data as string = mydatagridview.SelectedRows(nRow).cells(1).value
Dim data2 as string = mydatagridview.SelectedRows(nRow).cells(12).value
e.graphics.drawstring(data, drawfont, (e.graphics.pagebound.width/2-e.graphics.measurestring(data, drawfont).width/2), 25+nY)
e.graphics.drawstring(data2, drawfont, (e.graphics.pagebound.width/2-e.graphics.measurestring(data2, drawfont).width/2), 50+nY)
End Sub
And some modif in your code ..
yPos = 0
If mydatagridview.SelectedRows.Count = 1
PrintIt(e,0,yPos)
yPos += e.pagebounds.height/2
PrintIt(e,0,yPos)
Elseif mydatagridview.SelectedRows.Count > 1
Dim x,n As Integer
For x = 0 to mydatagridview.SelectedRows.Count-1
If n = 2 Then
e.HasMorePages = true
n = 0
yPos = 0
End If
PrintIt(e,x,yPos)
yPos += e.pagebounds.height/2
n += 1
Next
End If