C1FlexGrid打印与预览

最新推荐文章于 2019-10-02 13:28:46 发布

hz_yihang

最新推荐文章于 2019-10-02 13:28:46 发布

阅读量1.8k

点赞数

分类专栏： .NET 文章标签： c exception 报表 object styles border

本文链接：https://blog.csdn.net/hz_yihang/article/details/2133968

版权

.NET 专栏收录该内容

26 篇文章 0 订阅

订阅专栏

打印
Private Sub Print_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Print.Click
        Try
            'Dim pd As PrintDocument = C1FlexGrid1.PrintParameters.PrintDocument
            'pd.DefaultPageSettings.Landscape = True
            'Dim m As Margins = pd.DefaultPageSettings.Margins
            'm.Left = 25
            'm.Right = 25
            'm.Top = 125
            'm.Bottom = 25
            '' _flex.PrintGrid("Hello", PrintGridFlags.ShowPreviewDialog, "kkk%jjjj/n", "mmmm/n/kkkkkk")
            '' C1FlexGrid1.PrintGrid("My Grid", PrintGridFlags.ShowPreviewDialog, Constants.vbCr + Constants.vbCr + Constants.vbTab + Chr(34) + "kkkkkkkk" + Chr(34) + Constants.vbCrLf + " bbbbbbbb ", vbTab + "Page {0} of {1}")
            'C1FlexGrid1.PrintGrid("日报表", PrintGridFlags.ShowPrintDialog, Constants.vbCr + Constants.vbCr + Constants.vbTab + Chr(34) + "退回电池分类统计日报表" + Chr(34) + Constants.vbCrLf + Constants.vbTab + " 单位：组     ", vbTab + "Page {0} of {1}")
            ' Dim dlgPrintPreview As New PrintPreviewDialog
            PrintDocument1 = C1FlexGrid1.PrintParameters.PrintDocument
            PrintDocument1.DefaultPageSettings.Landscape = True

Dim m As Margins = PrintDocument1.DefaultPageSettings.Margins
m.Left = 25

            PrintDocument1.Print()
            ' dlgPrintPreview.Document = PrintDocument1
            ' dlgPrintPreview.ShowDialog()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

预览
    Private Sub Review_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Review.Click
        Try
            'Dim pd As PrintDocument = C1FlexGrid1.PrintParameters.PrintDocument
            'pd.DefaultPageSettings.Landscape = True
            'Dim m As Margins = pd.DefaultPageSettings.Margins
            'm.Left = 25
            'm.Right = 25
            'm.Top = 125
            'm.Bottom = 25
            '' _flex.PrintGrid("Hello", PrintGridFlags.ShowPreviewDialog, "kkk%jjjj/n", "mmmm/n/kkkkkk")
            'C1FlexGrid1.PrintGrid("日报表", PrintGridFlags.ShowPreviewDialog, Constants.vbTab + "退回电池分类统计日报表" + Constants.vbCrLf + Constants.vbTab + " 单位：组     ", vbTab + "Page {0} of {1}")
            '' C1FlexGrid1.PrintGrid("My Grid", PrintGridFlags.ShowPrintDialog, Constants.vbCr + Constants.vbCr + Constants.vbTab + Chr(34) + "kkkkkkkk" + Chr(34) + Constants.vbCrLf + " bbbbbbbb ", vbTab + "Page {0} of {1}")

            Dim dlgPrintPreview As New PrintPreviewDialog
            PrintDocument1 = C1FlexGrid1.PrintParameters.PrintDocument
            PrintDocument1.DefaultPageSettings.Landscape = True

            Dim m As Margins = PrintDocument1.DefaultPageSettings.Margins
            m.Left = 25
            'm.Right = 25
            'm.Top = 125
            'm.Bottom = 25

dlgPrintPreview.Document = PrintDocument1
dlgPrintPreview.ShowDialog()

            'Dim m As Margins = PrintDocument1.DefaultPageSettings.Margins
            'm.Left = 25
            'm.Right = 25
            'm.Top = 25
            'm.Bottom = 25
        Catch ex As Exception
            Throw ex
        End Try

End Sub

在打印时做的画线，写字符串等操作
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Try
            Dim XianX As New Pen(Color.Black, 1) '细线
            Dim FontNr As New Font("宋体", 16, FontStyle.Bold)
            Dim FontNr2 As New Font("宋体", 12, FontStyle.Bold)
            e.Graphics.DrawString("喷码电池逐月退回情况表", FontNr, Brushes.Black, 450, 50)
            e.Graphics.DrawString("单位：组", FontNr2, Brushes.Black, 800, 70)
            ' e.PageSettings.HardMarginX = 20
            ' e.Graphics.DrawLine(XianX, 100, 210, C1FlexGrid1.Width, 210)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

注意：在打印时，C1FlexGrid的右边和下面的边没有显示时，需要设置C1FlexGrid的Styles 的EmptyArea 的

Border的Color为黑色，width 为 2