我想打印ListView的数据,但是我想就是数据打印和抬头
但是我发现抬头总是有菜单一样的灰色
我想就是抬头数据,不要底色
其实就是最上面一排我不要底色,我该怎么设置阿?
是不是控件属性的问题?
我的程序是这样的:
Dim rs As New ADODB.Recordset
Dim itam As ListItem
Dim i As Integer
Dim JOBNO As String
JOBNO = frmExWorking.txtJobNo.Text
i = 0
' frmPrint_DYPD.ListView1.ColumnHeaderIcons.Clear
frmPrint_DYPD.ListView1.ListItems.Clear
frmPrint_DYPD.ListView1.View = lvwReport
With frmPrint_DYPD.ListView1 .ColumnHeaders.add , , "", .Width / 10
.ColumnHeaders.add , , "CONTAINERNO", .Width / 3
.ColumnHeaders.add , , "SEALNO", .Width / 3
End With
rs.Open "select * from ContainerLoadPlan where JobNoCT='" & JOBNO & "'", ADO_Cnn, adOpenKeyset, adLockOptimistic
If rs.EOF Then
End If
While Not rs.EOF
Set itam = frmPrint_DYPD.ListView1.ListItems.add()
' itam.SmallIcon = 1
itam.SubItems(1) = Trim(rs.Fields("ContainerNo"))
itam.SubItems(2) = Trim(rs.Fields("SealNo"))
i = i + 1
' frmPrint_DYPD.ListView1
rs.MoveNext
Wend
rs.Close
frmPrint_DYPD.Show
但是我发现抬头总是有菜单一样的灰色
我想就是抬头数据,不要底色
其实就是最上面一排我不要底色,我该怎么设置阿?
是不是控件属性的问题?
我的程序是这样的:
Dim rs As New ADODB.Recordset
Dim itam As ListItem
Dim i As Integer
Dim JOBNO As String
JOBNO = frmExWorking.txtJobNo.Text
i = 0
' frmPrint_DYPD.ListView1.ColumnHeaderIcons.Clear
frmPrint_DYPD.ListView1.ListItems.Clear
frmPrint_DYPD.ListView1.View = lvwReport
With frmPrint_DYPD.ListView1 .ColumnHeaders.add , , "", .Width / 10
.ColumnHeaders.add , , "CONTAINERNO", .Width / 3
.ColumnHeaders.add , , "SEALNO", .Width / 3
End With
rs.Open "select * from ContainerLoadPlan where JobNoCT='" & JOBNO & "'", ADO_Cnn, adOpenKeyset, adLockOptimistic
If rs.EOF Then
End If
While Not rs.EOF
Set itam = frmPrint_DYPD.ListView1.ListItems.add()
' itam.SmallIcon = 1
itam.SubItems(1) = Trim(rs.Fields("ContainerNo"))
itam.SubItems(2) = Trim(rs.Fields("SealNo"))
i = i + 1
' frmPrint_DYPD.ListView1
rs.MoveNext
Wend
rs.Close
frmPrint_DYPD.Show
是指ColumnHeaders吗?
不明白你的意思。
可以隐藏ColumnHeaders啊,就不会使第一列有菜单一样的灰色了。
Listview1.HideColumnHeaders=true