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