Формирование отчёта с использованием MS Word
| Private Sub Command9_Click()
Dim base As Database
Dim nabor As Recordset
Dim Pt As String
Dim objWord As Word.Application
Dim objDoc As Word.Document
Pt = Form2.Label1.Caption & "Base.mdb"
Set base = OpenDatabase(Pt)
Set nabor = base.OpenRecordset("Предприятие", dbOpenTable)
Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Add
objDoc.Activate
objDoc.ActiveWindow.Selection.Font.Size = 20
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter " Предприятие"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Bold = True
objDoc.ActiveWindow.Selection.EndOf
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "__________________________________________________________"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Bold = True
objDoc.ActiveWindow.Selection.Font.Size = 14
objDoc.ActiveWindow.Selection.EndOf
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Название предприятия " & nabor.Fields(0)
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Адрес " & nabor.Fields(1)
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "ФИО Директора " & nabor.Fields(2)
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "ФИО главного бухгалтера " & nabor.Fields(3)
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Производственные мощности предприятия " & nabor.Fields(4) & " штук"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "Производственный цикл для каждого изделия " & nabor.Fields(5) & " дня"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Bold = False
objDoc.ActiveWindow.Selection.Font.Size = 14
objDoc.ActiveWindow.Selection.EndOf
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter "__________________________________________________________"
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Bold = True
objDoc.ActiveWindow.Selection.Font.Size = 14
objDoc.ActiveWindow.Selection.EndOf
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter Date
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.Font.Bold = True
objDoc.ActiveWindow.Selection.Font.Size = 10
objDoc.ActiveWindow.Selection.EndOf
Pt = Form2.Label1.Caption & Date & "Предприятие.doc"
objDoc.SaveAs Pt
End Sub
|
2020-01-14
60
