请参照附件。
在spread中显示正常,但导出PDF后,出现如下问题:
1 表头的分隔线在代码中已经设置成None,为何导出PDF时,还显示出来。
2 明细中后部分的线也已经设置,但没有显示出来。
我的代码如下,请指教。
Private Sub line()
Dim k As Integer
Dim j As Integer
'表头颜色为通透
FpSpread1.Sheets(0).ColumnHeader.DefaultStyle.BackColor = Drawing.Color.Transparent
'表头上部分边框为通透
For j = 0 To 18
FpSpread1.Sheets(0).ColumnHeader.Columns(j).Border.BorderStyle = BorderStyle.None
FpSpread1.Sheets(0).ColumnHeader.Columns(j).Border.BorderColor = Drawing.Color.Transparent
Next
'表头下部分边框为黑色实线
For j = 5 To 8
For k = 0 To 18
FpSpread1.Sheets(0).ColumnHeader.Cells(j, k).Border.BorderStyle = BorderStyle.Solid
FpSpread1.Sheets(0).ColumnHeader.Cells(j, k).Border.BorderSize = 1
FpSpread1.Sheets(0).ColumnHeader.Cells(j, k).Border.BorderColor = Drawing.Color.Black
Next
Next
'表格明细设置黑实线
FpSpread1.Sheets(0).DefaultStyle.BackColor = Drawing.Color.Transparent
FpSpread1.Sheets(0).DefaultStyle.Border.BorderStyle = BorderStyle.Solid
FpSpread1.Sheets(0).DefaultStyle.Border.BorderSize = 1
FpSpread1.Sheets(0).DefaultStyle.Border.BorderColor = Drawing.Color.Black
End Sub |
-
jpg
|