vb.net – 以横向格式打印和预览DataGridView

Private Sub btnPreview_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnPreview.Click
    preview.PrintPreviewControl.Zoom = 1
    preview.Document = print
    print.PrinterSetTings.DefaultPageSetTings.Landscape = True
    preview.Show()

    AddHandler print.PrintPage,AddressOf print_PrintPage

End Sub

Protected Sub print_PrintPage(ByVal sender As Object,ByVal e As PrintPageEventArgs)
    Dim columnCount As Integer = DataGridView1.columnCount
    Dim RowCount As Integer = DataGridView1.RowCount

    Dim CellTopPos As Integer = print.PrinterSetTings.DefaultPageSetTings.Margins.Top

    For Row = 0 To RowCount - 1

        Dim CellLeftPos As Integer = print.PrinterSetTings.DefaultPageSetTings.Margins.Left

        For Cell = 0 To columnCount - 1

            Dim CellValue As String = DataGridView1.Rows(Row).Cells(Cell).Value.ToString()
            Dim CellWidth = DataGridView1.Rows(Row).Cells(Cell).Size.Width + 50
            Dim CellHeight = DataGridView1.Rows(Row).Cells(Cell).Size.Height

            Dim Brush As New SolidBrush(Color.black)
            e.Graphics.DrawString(CellValue,New Font("Century Gothic",10),Brush,CellLeftPos,CellTopPos)
            e.Graphics.DrawRectangle(Pens.black,CellTopPos,CellWidth,CellHeight)

            CellLeftPos += CellWidth
        Next

        CellTopPos += DataGridView1.Rows(Row).Cells(0).Size.Height
    Next

End Sub

这是我预览和打印datagridview内容的代码.我尝试使用DefaultPageSetTings代码,但它不起作用.我也试图以中心格式打印它