0

フリーウェア スクリプトを使用して 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
4

2 に答える 2

0

セルの境界線の色を変更する方法を見つけることで問題を解決しました。スニペットは次のとおりです。

                ' 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))
于 2012-08-20T16:16:44.523 に答える