vb.net - 尝试使用彩色单元格背景打印 DataGrid 视图

Question

我正在使用免费软件脚本打印 DataGrid 视图，但我面临的问题是，虽然我已经为单元格着色，但当我将 DataGrid 传递给 PrintDGV 免费软件代码时，它不会打印颜色。我不熟悉 VB.NET 或 DataGrids，所以这是我第一次尝试这样做。

它当前在打印视图中的外观图像：

代码：

http://pastebin.com/0yjvmAp7

最初我以为我可以只为我的 DataGrid 的单元格着色并将其传递给免费软件进行打印，免费软件也会打印背景颜色，但似乎这不是真的..

不知道是不是这样，但你去：

Imports System.Collections.Generic

' Print Current Schedule Grid Form
' This form displays a list of the print options.
' When you press "OK", control is returned to the Officer Availability window where the specs are read and the actual printing is done.
' You can choose to limit the number of columns, from the Officer area, that are printed
' You can also choose to limit the # rows that are printed to the range selected in schedule.

Public Class PrintOptions

    ' Form Events

    Public Sub New(ByVal availableFields As List(Of String))

        InitializeComponent()

        ' Add all of the displayed Officer specification columns to the columns available to be printed
        For Each field As String In availableFields
            chklst.Items.Add(field, True)
        Next

    End Sub

    Private Sub PrintOptions_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Set the Print Defaults - Print all rows by default and fit calendar to page width by default

        rdoAllRows.Checked = True
        chkFitToPageWidth.Checked = False
    End Sub

    ' Form Butten Events

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    ' Read Form Properties

    Public Function GetSelectedColumns() As List(Of String)
        ' Scroll through the list of available columns and return a list of the columns to be printed
        Dim lst As New List(Of String)
        For Each item As Object In chklst.CheckedItems
            lst.Add(item.ToString)
        Next
        Return lst
    End Function

    Public ReadOnly Property PrintTitle() As String
        ' Return the title to be used when printing
        Get
            Return txtTitle.Text
        End Get
    End Property

    Public ReadOnly Property PrintAllRows() As Boolean
        ' Are all rows to be printed or should only the rows selected on the Grid in the Officer Availability window be printed
        Get
            Return rdoAllRows.Checked
        End Get
    End Property

    Public ReadOnly Property FitToPageWidth() As Boolean
        ' Compress grid width to fit on page
        Get
            Return chkFitToPageWidth.Checked
        End Get
    End Property

End Class

Answer 1

似乎免费软件为您删除了着色（这对于打印视图来说似乎是合法的）。浏览您的代码，我看到调用了 PrintPreviewDialog。看起来这就是魔法发生的地方。您也可以粘贴代码吗？

Answer 2

我通过找出如何更改对我有用的单元格边框颜色解决了这个问题。这是片段：

                ' Initialize the random-number generator.
                Randomize()
                ' Generate random value between 1 and 6.
                MyAlpha = CInt(Int((254 * Rnd()) + 0))
                ' Initialize the random-number generator.
                Randomize()
                ' Generate random value between 1 and 6.
                MyRed = CInt(Int((254 * Rnd()) + 0))
                ' Initialize the random-number generator.
                Randomize()
                ' Generate random value between 1 and 6.
                MyGreen = CInt(Int((254 * Rnd()) + 0))
                ' Initialize the random-number generator.
                Randomize()
                ' Generate random value between 1 and 6.
                MyBlue = CInt(Int((254 * Rnd()) + 0))


                Dim penColor As New Pen(Color.FromArgb(MyAlpha, MyRed, MyGreen, MyBlue))
                ' Drawing Cells Borders 
                e.Graphics.DrawRectangle(penColor, New Rectangle(ColumnLeft(ColPage, ColAt), tmpTop, ColumnWidth(ColPage, ColAt), CellHeight))