ListView ,MSFlexGrid 直接输出到打印机的函数写法！问题解决人:laviewpbt(人一定要靠自己) ,mylzw(芃)

把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 I

Printer.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

回复人： laviewpbt(人一定要靠自己) ( ) 信誉：100 2005-11-16 20:03:28 得分: 70

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
'--------------------------------------------------------------------------

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 Functio

回复人： mylzw(芃) ( ) 信誉：96 2005-11-16 23:49:27 得分: 30

楼主有MSHFLEXGRID打印的代码，再来个LISTVIEW转换为MSHFLEXGRID的函数不得了？

'转换ListView中数据至MSHFlexGrid的函数
Public Function Lv_To_Fg(ListView As ListView, MSHFlexGrid As MSHFlexGrid) As Long
If ListView.View <> lvwReport Then
Lv_To_Fg = 0 '非报表结构，无法进行转换
Exit Function
End If

Dim I As Long
Dim j As Long

With MSHFlexGrid
.Clear
.FixedRows = 1
.FixedCols = 0
.Rows = ListView.ListItems.Count + 1
.cols = ListView.ColumnHeaders.Count

'同步列宽
For I = 0 To .cols - 1
.colWidth(I) = ListView.ColumnHeaders(I + 1).width
Next

'开始转换
For I = 0 To .Rows - 1
For j = 0 To .cols - 1
If I = 0 Then '写表头
.TextMatrix(I, j) = ListView.ColumnHeaders(j + 1).Text
Else '写内容
If j = 0 Then '写首列
.TextMatrix(I, j) = ListView.ListItems(I).Text
Else '写其余列
.TextMatrix(I, j) = ListView.ListItems(I).SubItems(j)
End If
End If
Next
Next
End With

Lv_To_Fg = 1
'转换完毕
End Function