fpSpread属性说明

发表于 更新于 分类于 阅读次数：

以下记录一些常用的fpSpread控件属性，按字母排序：

属性 说明
ActiveRow 获取当前活动行号
AddCellSpan 3, 4, 2, 1 从第3列第4行起合并单元格，跨度为2列1行
Backcolor 设置指定范围（行和列）的背景颜色
CellType = CellTypeNumber 设置为数字类型
Col = 2 定位到第2列
ColHeaderRows = 2 表头（列标题）行数为2
ColHeadersShow = False 隐藏列标题
ColWidth(1) = 16 设置第1列的列宽为16
ColsFrozen = 3 冻结前三列
DataSource = Rs 设置Spread的数据源为Rs记录集
DeleteCols 2, 1 在第2列前删除1列
DeleteRows 2, 1 在第2行前删除1行（如果Spread是通过设置数据源取得数据的话，则必须设置.DataSource = Nothing才能删除
FontSize = 10 设置当前栏位的字体大小为10（如果.Row = -1，则设置整列，下同
Formula = "SUM(A1:A" & MaxRows & ")" 合计：对第1列从第1行到最大行求和
GetText 2, 3, MyText 将第2列第3行的值赋给变量MyText
InsertCols 2, 1 在第2列前插入1列
InsertRows 2, 1 在第2行前插入1行
MaxCols = 5 设置总列数为5列
MaxRows = 10 设置总行数为10行
OperationMode = OperationModeRow 设置Spread的操作模式为行定位（共有6种模式）
PrintMarginLeft = 1000 打印时左边距=1000（包括预览）
PrintMarginTop = 1000 打印时上边距=1000（包括预览）
Row = SpreadHeader 定位到表头（列标题）
Row = -1 定位到行头（在设置列格式时使用）
Row = 3 定位到第3行
RowHeadersShow = False 隐藏行标题
RowHeight(1) = 12 设置第1行的行高为12
RowsFrozen = 2 冻结前两行
SetActiveCell 1,2 设置第1列第2行单元格为焦点
SetEnhancedColumnHeaderColors vbRed, vbYellow, vbBlue, vbGreen, vbBlack, vbWhite, vbMagenta, &H80FF&, vbBlue, vbRed 设置列头颜色
SetOddEvenRowColor vbWhite, &H80000008, &HF7ECE4, &H80000008 设置奇偶行背景色
SetText 2, 3, “test” 设置第2列第3行的文本为”test”
Text = “test” 设置当前栏位的文本为”test”
TypeHAlign = TypeHAlignRight 设置文字水平对齐方式为右对齐
TypeVAlign = TypeVAlignCenter 设置文字垂直对齐方式为居中
TypeNumberDecPlaces = 2 设置小数位数
TypeNumberShowSep = True 设置千位分隔
/n 打印属性：换行
/fn 打印属性：font name字体
/fz 打印属性：font size大小
/fb1 打印属性：font bold粗体
/fb0 打印属性：非粗体
/fi1 打印属性：font italic斜体
/fi0 打印属性：非斜体
/fu1 打印属性：font underline有下划线
/fu0 打印属性：无下划线
/fk1 打印属性：font strikethru有删除线
/fk0 打印属性：无删除线
/l 打印属性：居左
/c 打印属性：居中
/r 打印属性：居右
/p 打印属性：页码
/date 打印属性：日期
/time 打印属性：时间

打印实例（VB6.0）：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
'给表格fpSpread加载数据
Private Sub LoadfpSpread()
    Call CloseMRec
    MRec.Open "SELECT * FROM Table", MConn, 1, 3
	With fpS1
		.MaxRows = Mrec.RecordCount
		If MRec.RecordCount > 0 Then
			Set .DataSource = Mrec
			.ColWidth(1) = 9
			.ColWidth(2) = 8
			.ColWidth(3) = 8
			.ColWidth(4) = 33
			.ColWidth(5) = 33
		End If
	End With
End Sub

'打印fpSpread
Private Sub PrintfpSpread()
    Dim tableHead     As String
    Dim tableBodyRow1 As String
    Dim tableBodyRow2 As String
    Dim tableFoot     As String
    
    With fpS1
        Dim customerName, forderNo, code, operator, operatDate, repealReason		
        fpS2.GetText 1, fpS2.activeRow, code
        fpS2.GetText 2, fpS2.activeRow, forderNo
        fpS2.GetText 3, fpS2.activeRow, customerName
        fpS2.GetText 4, fpS2.activeRow, operator
        fpS2.GetText 5, fpS2.activeRow, operatDate
        fpS2.GetText 6, fpS2.activeRow, repealReason
        
        .MaxRows = .MaxRows + 1
        .SetText 2, .MaxRows, "撤销依据"
        .TypeHAlign = TypeHAlignCenter
        .AddCellSpan 3, .MaxRows, 4, 1
        .RowHeight(.MaxRows) = 30
        .SetText 3, .MaxRows, repealReason
        
        .Col = 2
        .Col2 = 5
        .Row = 1
        .PrintType = PrintTypeCellRange
        
        .PrintMarginTop = 540
        .PrintMarginBottom = 300
        .PrintMarginLeft = 480
        .PrintMarginRight = 480
        
        tableHead = "合同撤销通知单/n/n"
        tableBodyRow1 = "单据编号：" & code & "      " & "份合同号：" & forderNo & "      " & "订货单位名称：" & customerName & "" & "/n/n"
        tableBodyRow2 = "部门领导：" & "                " & "经办人：" & operator & "            " & "撤销日期：" & operatDate & "/n"
        
        .PrintHeader = "/c/fb1/fz""20""" & tableHead & "/l/fb0/fz""10""" & tableBodyRow1 & tableBodyRow2
        .PrintFooter = "/n/c/p//" & .PrintPageCount
		
        '调用打印预览界面
        FormPrint.PrintState = False
        FormPrint.PrintCount = 0
        FormPrint.SSP.hWndSpread = .hwnd
        FormPrint.PrintCount = .PrintPageCount
        FormPrint.Show 1
        
        If FormPrint.PrintState = True Then
            .PrintSheet
            FormPrint.PrintState = False
        End If
    End With
End Sub