form49.frm

办公自动化 vb+server2

'                  .DoDrawVLine 3, 20, 5, False, vbBlack, 1
                  .DoDrawVLine 3, 20, 6, True, vbBlack, 1


''                 .DoSetRowHeight 0, 150
'   '////////////////////////////////////////////////////////////0行
'                 .DoJoinCells 1, 0, 5, 0 '合并列成为一行(开始列,开始行,结束列,结束行)
'                 .DoSetCellAlignment 0, 0, 4 '使字体居中'所在列，所在行，对齐方式
'                 .DoDelHLine 0, 0, 0, True '删除网格线(开始列,结束列,所在行)
'                 .DoSetCellString 0, 0, " "
'                 .DoSetRowHeight 0, 20
''
'   '////////////////////////////////////////////////////////////一行
                
                 .DoJoinCells 1, 1, 5, 1 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoDelHLine 0, 0, 1, True '删除网格线
                 .DoSetCellString 1, 1, "勘测工程作业过程记事表" '所在列，所在行
                 .DoSetCellAlignment 1, 1, 5 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 1, 1, 20, 1, 宋体 '所在列，所在行，字体大小
                 .DoSetRowHeight 1, 40
'  '////////////////////////////////////////////////////////////二行
                  .DoJoinCells 1, 2, 5, 2 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                  .DoSetRowHeight 2, 30
'                  .DoDrawHLine 1, 7, 2, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
'  '////////////////////////////////////////////////////////////三行
                 .DoSetRowHeight 3, 60
                 .DoSetCellAlignment 1, 3, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellString 1, 3, "工程编号：" '所在列，所在行
                 .DoSetCellFont 1, 3, 8, 1, 宋体
                 
                 .DoSetCellAlignment 2, 3, 1 '使字体居中'所在列，所在行，对齐方式
                 .DoJoinCells 2, 3, 5, 3 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellString 2, 3, a
                 .DoSetCellFont 2, 3, 8, 0, 宋体 '字体大小'所在列，所在行
'
'    '////////////////////////////////////////////////////////////四行
                 .DoSetRowHeight 4, 60
                 .DoSetCellAlignment 1, 4, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellString 1, 4, "原工程编号：" '所在列，所在行
                 .DoSetCellFont 1, 4, 8, 1, 宋体
                 
                 .DoSetCellAlignment 2, 4, 1 '使字体居中'所在列，所在行，对齐方式
                 .DoJoinCells 2, 4, 5, 4 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellString 2, 4, a1
                 .DoSetCellFont 2, 4, 8, 0, 宋体 '字体大小'所在列，所在行
                 
'    '////////////////////////////////////////////////////////////五行
                 .DoSetRowHeight 5, 60
                 .DoSetCellAlignment 1, 5, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellString 1, 5, "建设单位：" '所在列，所在行
                 .DoSetCellFont 1, 5, 8, 1, 宋体
                 
                 .DoSetCellAlignment 2, 5, 1 '使字体居中'所在列，所在行，对齐方式
                 .DoJoinCells 2, 5, 5, 5 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellString 2, 5, a2
                 .DoSetCellFont 2, 5, 8, 0, 宋体 '字体大小'所在列，所在行
'    '////////////////////////////////////////////////////////////六行
                 .DoSetRowHeight 6, 60
                 .DoSetCellAlignment 1, 6, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellString 1, 6, "工程名称：" '所在列，所在行
                 .DoSetCellFont 1, 6, 8, 1, 宋体

                 .DoSetCellAlignment 2, 6, 1 '使字体居中'所在列，所在行，对齐方式
                 .DoJoinCells 2, 6, 5, 6 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellString 2, 6, a3
                 .DoSetCellFont 2, 6, 8, 0, 宋体 '字体大小'所在列，所在行

'        '////////////////////////////////////////////////////////////七行
                 .DoSetRowHeight 7, 60
                 .DoSetCellAlignment 1, 7, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellString 1, 7, "工程地址：" '所在列，所在行
                 .DoSetCellFont 1, 7, 8, 1, 宋体
                 
                 .DoSetCellAlignment 2, 7, 1 '使字体居中'所在列，所在行，对齐方式
                 .DoJoinCells 2, 7, 5, 7 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellString 2, 7, a4
                 .DoSetCellFont 2, 7, 7, 0, 宋体 '字体大小'所在列，所在行
'        '////////////////////////////////////////////////////////////八行
                 .DoSetRowHeight 8, 60
                 .DoSetCellAlignment 1, 8, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellString 1, 8, "联系人及电话：" '所在列，所在行
                 .DoSetCellFont 1, 8, 8, 1, 宋体
                 
                 .DoSetCellAlignment 2, 8, 1 '使字体居中'所在列，所在行，对齐方式
                 .DoJoinCells 2, 8, 5, 8 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellString 2, 8, a5
                 .DoSetCellFont 2, 8, 8, 0, 宋体 '字体大小'所在列，所在行
'        '////////////////////////////////////////////////////////////九行
                 .DoSetRowHeight 9, 60
                 .DoSetCellAlignment 1, 9, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellString 1, 9, "备注：" '所在列，所在行
                 .DoSetCellFont 1, 9, 8, 1, 宋体
                 
                 .DoSetCellAlignment 2, 9, 1 '使字体居中'所在列，所在行，对齐方式
                 .DoJoinCells 2, 9, 5, 9 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellString 2, 9, a6
                 .DoSetCellFont 2, 9, 9, 0, 宋体 '字体大小'所在列，所在行
'        '////////////////////////////////////////////////////////////十行
                 .DoJoinCells 1, 10, 4, 10 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetRowHeight 1, 40
'        '////////////////////////////////////////////////////////////十一
                 .DoJoinCells 1, 11, 5, 11 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoDelHLine 0, 0, 1, True '删除网格线
                 .DoSetCellString 1, 11, "工程控制过程记录" '所在列，所在行
                 .DoSetCellAlignment 1, 11, 5 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 1, 11, 20, 1, 宋体 '所在列，所在行，字体大小
                 .DoSetRowHeight 11, 40 '行，高

'        '////////////////////////////////////////////////////////////十二
                 .DoJoinCells 1, 12, 4, 10 '合并列成为一行'合并列成为一行(开始列,开始行,结束列,结束行)
'                 .DoDelHLine 0, 0, 1, True '删除网格线
                 .DoSetRowHeight 1, 40
'        '////////////////////////////////////////////////////////////十三
                .DoSetRowHeight 13, 40
                 .DoSetCellString 1, 13, "年 月 日" '所在列，所在行
                 .DoSetCellAlignment 1, 13, 4 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 1, 13, 8, 1, 宋体 '所在列，所在行，字体大小
                 
                 .DoSetCellString 2, 13, "部  门" '所在列，所在行
                 .DoSetCellAlignment 2, 13, 4 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 2, 13, 8, 1, 宋体 '所在列，所在行，字体大小
                 
                 .DoSetCellString 3, 13, "负 责 人" '所在列，所在行
                 .DoSetCellAlignment 3, 13, 4 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 3, 13, 8, 1, 宋体 '所在列，所在行，字体大小
                 
                 .DoSetCellString 4, 13, "事  件" '所在列，所在行
                 .DoSetCellAlignment 4, 13, 4 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 4, 13, 8, 1, 宋体 '所在列，所在行，字体大小
                 
                 .DoSetCellString 5, 13, "备  注" '所在列，所在行
                 .DoSetCellAlignment 5, 13, 4 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 5, 13, 8, 1, 宋体 '所在列，所在行，字体大小
'        '////////////////////////////////////////////////////////////十四
                 .DoSetRowHeight 14, 60
                 .DoSetCellAlignment 1, 14, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 1, 14, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 1, 14, b '列，行
                 
                 .DoSetCellAlignment 2, 14, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 2, 14, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 2, 14, b1 '列，行
                 
                 .DoSetCellAlignment 3, 14, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 3, 14, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 3, 14, b2 '列，行

                 .DoSetCellAlignment 4, 14, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 4, 14, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 4, 14, b3 '列，行

                 .DoSetCellAlignment 5, 14, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 5, 14, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 5, 14, b4 '列，行


'        '////////////////////////////////////////////////////////////十五
                 .DoSetRowHeight 15, 60
                 .DoSetCellAlignment 1, 15, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 1, 15, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 1, 15, b5 '列，行
                 
                 .DoSetCellAlignment 2, 15, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 2, 15, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 2, 15, b6 '列，行
                 
                 .DoSetCellAlignment 3, 15, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 3, 15, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 3, 15, b7 '列，行

                 .DoSetCellAlignment 4, 15, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 4, 15, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 4, 15, b8 '列，行

                 .DoSetCellAlignment 5, 15, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 5, 15, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 5, 15, b9 '列，行
'        '////////////////////////////////////////////////////////////十六
                 .DoSetRowHeight 16, 60
                 .DoSetCellAlignment 1, 16, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 1, 16, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 1, 16, b10 '列，行
                 
                 .DoSetCellAlignment 2, 16, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 2, 16, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 2, 16, b11 '列，行
                 
                 .DoSetCellAlignment 3, 16, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 3, 16, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 3, 16, b12 '列，行

                 .DoSetCellAlignment 4, 16, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 4, 16, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 4, 16, b13 '列，行

                 .DoSetCellAlignment 5, 16, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 5, 16, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 5, 16, b14 '列，行

'        '////////////////////////////////////////////////////////////十七
                 .DoSetRowHeight 17, 60
                 .DoSetCellAlignment 1, 17, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 1, 17, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 1, 17, b15 '列，行
                 
                 .DoSetCellAlignment 2, 17, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 2, 17, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 2, 17, b16 '列，行
                 
                 .DoSetCellAlignment 3, 17, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 3, 17, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 3, 17, b17 '列，行

                 .DoSetCellAlignment 4, 17, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 4, 17, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 4, 17, b18 '列，行

                 .DoSetCellAlignment 5, 17, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 5, 17, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 5, 17, b19 '列，行

'        '////////////////////////////////////////////////////////////十八
                 .DoSetRowHeight 18, 60
                 .DoSetCellAlignment 1, 18, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 1, 18, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 1, 18, b20 '列，行
                 
                 .DoSetCellAlignment 2, 18, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 2, 18, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 2, 18, b21 '列，行
                 
                 .DoSetCellAlignment 3, 18, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 3, 18, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 3, 18, b22 '列，行

                 .DoSetCellAlignment 4, 18, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 4, 18, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 4, 18, b23 '列，行

                 .DoSetCellAlignment 5, 18, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 5, 18, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 5, 18, b24 '列，行

'        '////////////////////////////////////////////////////////////十九
                 .DoSetRowHeight 19, 60
                 .DoSetCellAlignment 1, 19, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 1, 19, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 1, 19, b25 '列，行
                 
                 .DoSetCellAlignment 2, 19, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 2, 19, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 2, 19, b26 '列，行
                 
                 .DoSetCellAlignment 3, 19, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 3, 19, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 3, 19, b27 '列，行

                 .DoSetCellAlignment 4, 19, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 4, 19, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 4, 19, b28 '列，行

                 .DoSetCellAlignment 5, 19, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 5, 19, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 5, 19, b29 '列，行

'        '////////////////////////////////////////////////////////////二十
                 .DoSetRowHeight 20, 60
                 .DoSetCellAlignment 1, 20, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 1, 20, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 1, 20, b30 '列，行
                 
                 .DoSetCellAlignment 2, 20, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 2, 20, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 2, 20, b31 '列，行
                 
                 .DoSetCellAlignment 3, 20, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 3, 20, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 3, 20, b32 '列，行

                 .DoSetCellAlignment 4, 20, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 4, 20, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 4, 20, b33 '列，行

                 .DoSetCellAlignment 5, 20, 5 '使字体居中'所在列，所在行，对齐方式
                 .DoSetCellFont 5, 20, 8, 0, 宋体 '字体大小'所在列，所在行
                 .DoSetCellString 5, 20, b34 '列，行
                 
'        '////////////////////////////////////////////////////////////二十一
                 .DoSetRowHeight 21, 60
                 .DoSetCellAlignment 5, 21, 5 '使字体居中；所在列，所在行，对齐方式
                 .DoSetCellFont 5, 21, 10, 0, 宋体 '所在列，所在行，字体大小
                 .DoSetCellString 5, 21, b35 '列，行
        
                   .DoRedrawAll
        
             End With

Form49.Cell2.DoPrintPreview True



End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()

End Sub

Private Sub Form_Load()
Dim a As String
   With Me
    .Height = 8010
    .left = 2332
    .top = 2600
    .Width = 12160
End With


End Sub

Private Sub Form_Unload(Cancel As Integer)
Form12.Text1(0).Text = bianhao
End Sub