C1FlexGrid打印与预览 - hz

 

打印 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

本文来自博客，转载请标明出处：http://blog.csdn.net/hz_yihang/archive/2008/02/29/2133968.aspx