У меня так сделана распачетка в Writer, это типа Word, но у меня все сделано под опен офис, правдо tdbgrid связан с adodc, печатает оттуда


Private Sub doprint7()

Dim oSM
Dim arg(2) As Object 'Root object for accessing OpenOffice from VB
Dim oDesk As Object
Dim odoc1 As Object 'First objects from the API
Dim args5(19) As Object
Dim odoc As Object
Dim objdoccontroller As Object
Dim objdocframe As Object
Dim dispatcher As Object
Dim otext As Object
Dim ocursor As Object
Dim otable As Object
Dim otablecursor As Object
Dim ocell As Object
Dim rows As Object
Dim cells As Object
Dim tablecell As Object
Dim kur As New ADODB.Connection
Dim rr As Recordset
Dim zz
Dim sernum
kur.Provider = "VFPOLEDB.1"
kur.Open MDIForm1.kurpath
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")

myypath = "private:factory/swriter"
Set odoc = oDesk.loadComponentFromURL(myypath, "_blank", 0, args5())
'Set objCursor = objText.createTextCursor
'Set objCursor1 = objText1.createTextCursor
Set otext = odoc.GetText

Set ocursor = otext.createtextcursor()
Call otext.insertstring(ocursor, "", False)
Call otext.insertControlCharacter(ocursor, 0, False)
ocursor.BreakType = 0
ocursor.charweight = 200
Call otext.insertstring(ocursor, " Реестр договоров по организациям", False)
Call otext.insertControlCharacter(ocursor, 0, False)
ocursor.charweight = 0
ocursor.BreakType = 0
Call otext.insertstring(ocursor, " ", False)
Call otext.insertControlCharacter(ocursor, 0, False)
ocursor.BreakType = 0

Call otext.insertstring(ocursor, "", False)
Call otext.insertControlCharacter(ocursor, 0, False)
ocursor.BreakType = 0
Set otable = odoc.createInstance("com.sun.star.text.TextTable")
Call otable.Initialize(kolorg + 2, 6)
Call otext.inserttextcontent(ocursor, otable, False)
oTblColSeps = otable.TableColumnSeparators
Me.Adodc1.Recordset.MoveFirst


oTblColSeps(0).Position = 4000
oTblColSeps(1).Position = 5500
oTblColSeps(2).Position = 6500
oTblColSeps(3).Position = 7500
oTblColSeps(4).Position = 8800
otable.TableColumnSeparators = oTblColSeps
oTblColSeps = otable.TableColumnSeparators
Set rows = otable.GetRows
'Set cells = otable.getcolumns
jjj = 1
Set tablecell = otable.getCellByPosition(0, 0)
Call tablecell.setString("Наименование")
Set tablecell = otable.getCellByPosition(1, 0)
Call tablecell.setString("ИНН")
Set tablecell = otable.getCellByPosition(2, 0)
Call tablecell.setString("ИФНС")
Set tablecell = otable.getCellByPosition(3, 0)
Call tablecell.setString("Тип")
Set tablecell = otable.getCellByPosition(4, 0)
Call tablecell.setString("Дата1")
Set tablecell = otable.getCellByPosition(5, 0)
Call tablecell.setString("ДатаП")


Do While Not Me.Adodc1.Recordset.EOF
Set tablecell = otable.getCellByPosition(0, jjj)
Call tablecell.setString(Me.Adodc1.Recordset.Fields(1).Value)
Set tablecell = otable.getCellByPosition(1, jjj)
Call tablecell.setString(Me.Adodc1.Recordset.Fields(2).Value)
Set tablecell = otable.getCellByPosition(2, jjj)
Call tablecell.setString(Me.Adodc1.Recordset.Fields(10).Value)
Set tablecell = otable.getCellByPosition(3, jjj)
Select Case Me.Adodc1.Recordset.Fields(6).Value
Case 1
Call tablecell.setString("Дов-сть")
Case 2
Call tablecell.setString("Дог-р")
Case Else
Call tablecell.setString("")
End Select

Set tablecell = otable.getCellByPosition(4, jjj)
Call tablecell.setString(Me.Adodc1.Recordset.Fields(7).Value)
Set tablecell = otable.getCellByPosition(5, jjj)
Call tablecell.setString(Me.Adodc1.Recordset.Fields(8).Value)

'Set tablecell.charHeight = 14
'tablecell.CharWeight = 150
Me.Adodc1.Recordset.MoveNext
jjj = jjj + 1
Loop
Call otext.insertstring(ocursor, "", False)
Call otext.insertControlCharacter(ocursor, 0, False)
ocursor.BreakType = 0


Set odoc = Nothing
Set oDesk = Nothing
Set oSM = Nothing
End Sub