小编A.B*_*osa的帖子

我有一个Datagrid,其中包含从数据库中检索到的信息,我希望打印输出采用包含行和列的表格格式.我的实际方法很简单,但输出非常混乱.有什么想法吗？

  Private Sub Imprimir_Click(sender As Object, e As EventArgs) Handles Imprimir.Click
    PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0
    PrintPreviewDialog1.FindForm.WindowState = FormWindowState.Maximized
    PrintPreviewDialog1.ShowDialog()
  End Sub

  Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As 
      System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
      Dim y As Integer = 70
      PrintDocument1.DefaultPageSettings.Landscape = True
      e.Graphics.DrawString("TransporGest - Registo de Operações", 
          New Font("Verdana", 10, FontStyle.Bold), Brushes.Black, 30, 30)
      For Each dr As DataGridViewRow In dg.Rows
        e.Graphics.DrawString(dr.Cells(0).Value & " | " & dr.Cells(2).Value & 
             " | " & dr.Cells(3).Value & " | " & dr.Cells(4).Value & …