打印MSHFLEXGRID的问题

Question

我查询记录,查询出的结果显示在MSHFLEXGRID里,我怎么样把这个MSHFLEXGRID打印出来?谢谢

Answer 1

参考代码：修改一下就可以了：
把ListView 里的内容做个参数为ListView 对象,使用VB的Printer 对象打印出来的函数!下面是打印MSFlexGrid 的代码,不知道怎么打印我说的ListView!
以下是参考代码:
Sub print_grid(Grd As MSFlexGrid, MainTitle As String, SecTitle As String, PageLine As Integer, DjCol As Integer, JeCol As Integer)
 Dim x0 As Single, y0 As Single
 Dim x As Single, y As Single
 Dim fs As String * 10
 Dim zje As Currency, yje As Currency
 Dim HzNum As Integer
 Dim n As Integer, r As Integer Dim dx(0 To 20) As Integer
 Dim Cellf(0 To 20) As Single Dim str1 As String, str2 As String, str3 As String, str4 As String
 Dim I As Integer, j As Integer, k As Integer
 'Load printer
 'printer.Show
 If Grd.Rows <= 1 Then
     MsgBox "本表格没有数据，没有必要打印！", 48, "提示"
     Exit Sub
 End If
 x0 = 10    '打印边界
 y0 = 20
 With Grd
 '计算栏空  dx(i)
 .Row = 1
 w = .Width
 For I = .Cols - 1 To 1 Step -1
        .Col = I
        dx(I) = (.CellWidth + 72) / 56.7 / 4.233
        w = w - (.CellWidth + 72)
 Next I
 dx(0) = w / 4.233 / 56.7
 '计算 str1 到 str4
 str1 = "┌"
 str2 = "├"
 str3 = "│"
 str4 = "└"
 HzNum = 1 '汉字总数
 For I = 0 To .Cols - 1
     Cellf(I) = HzNum * 4.233     '计算每栏起始打印位置
     For j = 1 To dx(I)
         str1 = str1 + "─"
         str2 = str2 + "─"
         str3 = str3 + "　"
         str4 = str4 + "─"     Next j
     HzNum = HzNum + dx(I) + 1
     If I < .Cols - 1 Then
        str1 = str1 + "┬"
        str2 = str2 + "┼"
        str3 = str3 + "│"
        str4 = str4 + "┴"
     Else
        str1 = str1 + "┐"
        str2 = str2 + "┤"
        str3 = str3 + "│"
        str4 = str4 + "┘"
     End If
 Next IPrinter.ScaleMode = 6      '毫米为单位
Printer.Width = 210 * 56.7   '窄行打印纸大小
Printer.Height = 297 * 56.7
k = 1
n = 0    '当前页数
zje = 0  '总计金额r = Int((.Rows + PageLine - 2) / PageLine)   '总页数
While k <= .Rows - 1
    yje = 0    '页小计金额
'    printer.FontName = "楷书"
    Printer.FontName = "宋体"    Printer.FontBold = True
    Printer.FontSize = 18
    x = x0 + (HzNum * 4.233 - Len(MainTitle) * 6.46) / 2
    y = y0
    Printer.CurrentX = x
    Printer.CurrentY = y
    Printer.Print MainTitle      '打印主标题    Printer.FontBold = False
    Printer.FontName = "宋体"
    Printer.FontSize = 12
    y = Printer.CurrentY + 3
    x = x0
    Printer.CurrentX = x
    Printer.CurrentY = y
    Printer.Print SecTitle      '打印次标题
    Printer.CurrentX = x + HzNum * 4.233 - 50
    Printer.CurrentY = y
    Printer.Print Format$(Date, "yyyy-mm-dd")      ''打印日期
    y = Printer.CurrentY + 2
    Printer.CurrentX = x0
    Printer.CurrentY = y
    Printer.Print str1                    '打印┌───┬──┬─┐    y = Printer.CurrentY
    Printer.CurrentX = x0
    Printer.Print str3                    '打印│      │    │  │
    For j = 0 To .Cols - 1                '打印表头内容
        '表头内容位于单元中间
        Printer.CurrentX = x0 + Cellf(j) + (dx(j) - Len(.TextMatrix(0, j))) / 2 * 4.233
        Printer.CurrentY = y
        Printer.Print .TextMatrix(0, j)
    Next j    For I = 1 To PageLine
        If k = .Rows Then Exit For        '表格结束
        y = Printer.CurrentY
        Printer.CurrentX = x0
        Printer.CurrentY = y
        Printer.Print str2                '打印├───┼──┼─┤        y = Printer.CurrentY
        Printer.CurrentX = x0
        Printer.CurrentY = y
        Printer.Print str3                '打印│      │    │  │        For j = 0 To .Cols - 1            '打印一行的内容
            Printer.CurrentX = x0 + Cellf(j)
            Printer.CurrentY = y
            If j = DjCol Then
               fs = "      "
               Mid$(fs, 7 - Len(Format$(.TextMatrix(k, j), "##0.00")), Len(Format$(.TextMatrix(k, j), "##0.00"))) = Format$(.TextMatrix(k, j), "##0.00")
               Printer.Print Mid$(fs, 1, 6)
            ElseIf j = JeCol Then
               fs = "         "
               Mid$(fs, 10 - Len(Format$(.TextMatrix(k, j), "####0.00")), Len(Format$(.TextMatrix(k, j), "####0.00"))) = Format$(.TextMatrix(k, j), "####0.00")
               Printer.Print fs
               yje = yje + Val(.TextMatrix(k, j))
               zje = zje + Val(.TextMatrix(k, j))
            Else
               Printer.Print .TextMatrix(k, j)
            End If
        Next j
        k = k + 1
    Next I
    n = n + 1
    y = Printer.CurrentY
    Printer.CurrentX = x0
    Printer.CurrentY = y
    Printer.Print str4                    '打印└──┴──┴──┘
    If zje <> 0 Then
       Printer.CurrentX = x0 + 80
       Printer.Print "本页小计金额:" + Format$(yje, "######0.00") + "元"
    End If
    Printer.CurrentX = x0 + 90
    Printer.Print "第" + Str$(n) + "页,共" + Str$(r) + "页"
    If k < .Rows - 1 Then
        Printer.NewPage
    Else
        Printer.CurrentX = x0 + 80
        Printer.Print "总计金额:" + Format$(zje, "######0.00") + "元"
    End If
Wend
Printer.EndDoc
End With
End Sub

Answer 2

打印ListView 控件的内容：
Function gPrintListView(ByRef pobjListView As ListView, pstrHeading As String) As Boolean
    Dim objCol As ColumnHeader
    Dim objLI As ListItem
    Dim objILS As ImageList
    Dim objPic As Picture
    
    Dim dblXScale As Double
    Dim dblYScale As Double
    Dim sngFontSize As Single
    Dim lngX As Long
    Dim lngY As Long
    Dim lngX1 As Long
    Dim lngY1 As Long
    Dim lngX2 As Long
    Dim lngRows As Long
    Dim lngLeft As Long
    Dim lngPageNo As Long
    Dim lngEOP As Long
    Dim lngEnd As Long
    Dim lngWidth As Long
    Dim intCols As Integer
    Dim lng As Long
    Dim intOffset As Integer
    Dim px As Integer
    Dim py As Integer
    Dim intRowHeight As Integer
    Dim strText As String
    Dim strTextTrun As String
    
    '--------------------------------------------------------------------------
    'Establish print & screen metrics
    '--------------------------------------------------------------------------
    
    On Error GoTo Error_Handler
    
    Screen.MousePointer = vbHourglass
        
    For Each objCol In pobjListView.ColumnHeaders
        
        lngX = lngX + objCol.Width
    
    Next
    
    Set objILS = pobjListView.SmallIcons
    
    dblXScale = (Printer.Width * 0.9) / lngX
    dblYScale = Printer.Height / pobjListView.Height
    
    lngLeft = (Printer.Width - (Printer.Width * 0.95)) / 2
    
    sngFontSize = Printer.Font.Size
    
    If pstrHeading <> "" Then
    
        Printer.Font.Size = 12
        Printer.CurrentX = (Printer.Width / 2) - (Printer.TextWidth(pstrHeading) / 2)
        Printer.Font.Underline = True
        Printer.Print pstrHeading
        Printer.Font.Underline = False
        Printer.Font.Size = sngFontSize
        lng = Printer.CurrentY + Printer.CurrentY
        
    End If
    
    intRowHeight = (Screen.TwipsPerPixelY * 17)
    
    lngEOP = Printer.Height - (intRowHeight * 3)
    
    lngX = lngLeft
    lngY = lngTop
    
    lngY1 = lng + (Screen.TwipsPerPixelY * 17)
    
    Printer.CurrentY = lngY
    Printer.Font.Bold = True
    Printer.DrawMode = vbCopyPen
       
    px = Screen.TwipsPerPixelX
    py = Screen.TwipsPerPixelY
    
    '--------------------------------------------------------------------------
    'Print column headers with slight 3D effect
    '--------------------------------------------------------------------------
    
    For Each objCol In pobjListView.ColumnHeaders
        
        lngX1 = lngX + (objCol.Width * dblXScale)
        
        Printer.Line (lngX, lngY)-(lngX1, lngY1), vbButtonShadow, BF
        Printer.Line (lngX, lngY)-(lngX1 - px, lngY1), RGB(245, 245, 245), BF
        Printer.Line (lngX + px, lngY + py)-(lngX1, lngY1), vbButtonShadow, BF
        Printer.Line (lngX + px, lngY + py)-(lngX1 - px, lngY1 - py), vbButtonFace, BF
        
        Printer.CurrentY = lngY + ((intRowHeight - Printer.TextHeight(objCol.Text)) / 2) + py
        
        Select Case objCol.Alignment
               
            Case ListColumnAlignmentConstants.lvwColumnCenter
                   
                Printer.CurrentX = lngX + (((objCol.Width * dblXScale) - Printer.TextWidth(objCol.Text)) / 2)
               
            Case ListColumnAlignmentConstants.lvwColumnLeft
                
                Printer.CurrentX = lngX + (px * 5)
            
            Case ListColumnAlignmentConstants.lvwColumnRight
                
                Printer.CurrentX = lngX + ((objCol.Width * dblXScale) - Printer.TextWidth(objCol.Text)) - (px * 5)
                
        End Select
        
        Printer.Print objCol.Text
           
        lngX = lngX1
    
    Next
    
    lngEnd = lngX1 + px
    
    Printer.Font.Bold = False
    
    '--------------------------------------------------------------------------
    'Print list item data
    '--------------------------------------------------------------------------
    

Answer 3

For Each objLI In pobjListView.ListItems
        
        If lngY1 > lngEOP - intRowHeight - intRowHeight Then
            
            '------------------------------------------------------------------
            'Print page number
            '------------------------------------------------------------------
            
            lngPageNo = lngPageNo + 1
            Printer.CurrentX = (Printer.Width / 2) - (Printer.TextWidth("Page " & lngPageNo) / 2)
            Printer.CurrentY = lngEOP - intRowHeight
            Printer.Print "Page " & lngPageNo
            Printer.NewPage
            Printer.CurrentY = lngTop
            lngY = lngTop
        
        Else
        
            lngY = lngY + intRowHeight
        
        End If
        
        lngX = lngLeft
        
        lngY1 = lngY + intRowHeight
            
        For Each objCol In pobjListView.ColumnHeaders
            
            '------------------------------------------------------------------
            'Print the icon if on col 1
            '------------------------------------------------------------------
            
            If objCol.Index > 1 Then
                
                strText = objLI.SubItems(objCol.Index - 1)
                
                intOffset = 0
                
            Else
                
                strText = objLI.Text
     
                If IsEmpty(objLI.SmallIcon) Then
                    
                    intOffset = 0
                
                Else
                    
                    Set objPic = objILS.Overlay(objLI.SmallIcon, objLI.SmallIcon)
                
                    Printer.PaintPicture objPic, lngX + px, lngY + (py / 2), 16 * px, 16 * py, , , , , vbSrcCopy
                    
                    intOffset = px * 16
                    
                End If
            
            End If
            
            '------------------------------------------------------------------
            'Make sure text fits
            '------------------------------------------------------------------
            
            lngWidth = (objCol.Width * dblXScale)
            
            lngX1 = lngX + lngWidth
            
            strTextTrun = strText
               Do Until Printer.TextWidth(strTextTrun) < lngWidth - (px * 5) - intOffset Or strText = ""
                
                strText = Left$(strText, Len(strText) - 1)
                
                strTextTrun = strText & "..."
            
            Loop
            
            Printer.Line (lngX, lngY)-(lngX1, lngY1), 1, B
            
            Printer.CurrentY = lngY + ((intRowHeight - Printer.TextHeight(strTextTrun)) / 2) + py
            
            Select Case objCol.Alignment
                   
                Case ListColumnAlignmentConstants.lvwColumnCenter
                    
                    Printer.CurrentX = lngX + intOffset + (((objCol.Width * dblXScale) - Printer.TextWidth(strTextTrun)) / 2)
                    
                Case ListColumnAlignmentConstants.lvwColumnLeft
                    
                    Printer.CurrentX = lngX + intOffset + (px * 5)
                
                Case ListColumnAlignmentConstants.lvwColumnRight
                    
                    Printer.CurrentX = lngX + ((objCol.Width * dblXScale) - intOffset - Printer.TextWidth(strTextTrun)) - (px * 5)
                    
            End Select
            
            '------------------------------------------------------------------
            'Print each colum
            '------------------------------------------------------------------
            
            Printer.Print strTextTrun
             
            lngX = lngX1
        
        Next
        
    Next
    
    '--------------------------------------------------------------------------
    'Print final page number
    '--------------------------------------------------------------------------
    
    lngPageNo = lngPageNo + 1
    
    Printer.CurrentX = (Printer.Width / 2) - (Printer.TextWidth("Page " & lngPageNo) / 2)
    Printer.CurrentY = lngEOP - intRowHeight
    Printer.Print "Page " & lngPageNo
    Printer.EndDoc
    
    gPrintListView = True
    
    Screen.MousePointer = vbDefault
    
    Set objCol = Nothing
    Set objILS = Nothing
    Set objLI = Nothing
    Set objPic = Nothing
    
    Exit Function
    
Error_Handler:
    
    Set objCol = Nothing
    Set objILS = Nothing
    Set objLI = Nothing
    Set objPic = Nothing
    
    Screen.MousePointer = vbDefault
    
    '--------------------------------------------------------------------------
    'Simple error message reporting
    '--------------------------------------------------------------------------
    
    MsgBox "gPrintListView() failed with the following error:-" & vbCrLf & vbCrLf & _
    "Error Number: " & Err.Number & vbCrLf & "Description:" & Err.Description, vbExclamation
    
End Functiohttp://blog.csdn.net/MysticBoys/archive/2005/11/18/532372.aspx

Answer 4

打印MSHFlexGrid和Listview，在网上已有写好的类，拿来直接用就可以了。