[劳务输出调研报告]引题：近年来，东宁县劳务输出已成为沿边口岸最具有潜力、最富有活力的经济增长点，成为农民增收的主要渠道之一，劳务经济已成为县域经济重要组成部分。为深入研究劳务输出面临的新...+阅读
Private Sub cmdword_Click()
Dim sqlstr As String
Dim rpTitle As String
Set db = OpenDatabase(＂students.mdb＂)
sqlstr = ＂select * from Info＂
rpTitle = ＂通讯录＂
Call GenerateReport(sqlstr, rpTitle)
End Sub
---------------------------------------------------------------
Private Sub GenerateReport(sqlstr As String, rpTitle As String)
Dim app As New Word.Application
Dim doc As Word.Document
Dim sel As Word.Selection
Dim tbl As Word.Table
Dim RD As Recordset
Dim i, j As Integer
app.Visible = True
app.Documents.Add
docname = app.ActiveDocument.Name
Set doc = app.Documents(docname)
Set courseinfo = db.OpenRecordset(sqlstr, dbOpenSnapshot, ReadOnly)
Set sel = app.Selection
With sel
.Font.Size = 30
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.InsertAfter rpTitle
.InsertParagraphAfter
.InsertParagraphAfter
.EndOf
End With
sel.Font.Size = 10
If courseinfo.RecordCount > 0 Then
courseinfo.MoveLast
sel.MoveEnd
Set tbl = sel.Tables.Add(sel.Range, courseinfo.RecordCount + 1, courseinfo.Fields.Count)
tbl.AutoFormat (36)
tbl.AllowAutoFit = True
tbl.Columns.AutoFit
With tbl
courseinfo.MoveFirst
For j = 1 To .Columns.Count
.Cell(1, j).Range.Font.Bold = True
.Cell(1, j).Range.Text = courseinfo.Fields(j - 1).Name
Next j
For i = 2 To .Rows.Count
For j = 1 To .Columns.Count
.Cell(i, j).Range.Text = courseinfo.Fields(j - 1).Value
Next j
courseinfo.MoveNext
Next i
End With
Else
MsgBox ＂no record!!!＂, vbOKOnly
End If
sel.GoToNext (wdGoToTable)
sel.Document.Range.InsertParagraphAfter
sel.Document.Range.InsertAfter Date
courseinfo.Close
End Sub
延伸阅读：
劳务输出工作的自我总结我乡劳务输出工作以科学发展观为指导，紧紧围绕我县打工经济战略就业，发展经济为目标，将输出工作作为农业和农村经济结构战略性调整和建设社会主义新农村的重要措施来抓，在乡党委...
县劳务输出调研报告劳务输出：推动通渭经济社会发展的新力量 摘要： xx，地处陇中腹地，人口总量为xx万人，其中农业人口40.4万人，农村富余劳动力达9万人，属人力资源大... xxx，地处陇中腹地，人口总量为xx万人...
我县劳务输出的调查报告我县劳务输出的调查报告 几年来，县委、县政府积极发展劳务产业，推动农村剩余劳动力的转移就业，开辟新的增收渠道，取得了较好的经济效益和社会效益。-间，全县劳务输出累计达23万人...
探索劳务输出与输入地区对接机制调研报告根据上级开展“探索劳务输出地区与输入地区对接机制”的通知要求，xx市就业办拿出专门人员，认真进行了专题调研，有关情况报告如下： 一、劳动力资源基本情况 据调查，xx市现有人口86...
农村富余女性劳动力输出状况的调研报告__位于__省__走廊最西端，地处__、青海、新疆三省（区）交汇处，18－45岁有劳动能力的农村女性3万余人。随着农业科技的不断进步和产业结构的调整，农村女性富余劳动力逐年增多。同时，经...
关于全县劳务输出情况的调查报告为加速县域经济发展，县委确定了实现“富县、富乡、富村、富民”四富目标，走好“工业立县、绿色强县、招商富县”三条路子的工作思路，特别是进一步明确了实现“四富”的具体途径...
对农村富余女性劳动力输出状况的调研报告**位于**省**走廊最西端，地处**、青海、新疆三省（区）交汇处，18－45岁有劳动能力的农村女性3万余人。随着农业科技的不断进步和产业结构的调整，农村女性富余劳动力逐年增多。同时，经...
