Bonjour,
pour un enregistrement précis, je n'ai pas de problème mais là, il s'agit d'un état qui regroupe les enregistrements sur un même champ de la base. Par exemple dans ma table, j'ai 5 enregistrements TRES. A que je regroupe sur une seule page du rapport avec les 5 dates qui se suivent.
Comme je ne sais pas comment m'y prendre pour coder tout ça, à partir de dbase, j'ai pensé que c'était plus simple d'exploiter directement le rapport issu de dbase pour créer des fichiers indépendants.
le code :
Code : Tout sélectionner
Sub test
Dim oDoc as Object, oTables as Object, oTable as Object, maCellule as Object
Dim nomFichier as String, adresseDoc as String
Dim curseurVisible as Object, oRangeFinPage as Object, aCopier as Object
oDoc = ThisComponent
oTables = oDoc.getTextTables()
oTable = oTables.getByName("TAB1")
maCellule = oTable.getCellByName("A1")
nomFichier = maCellule.String
curseurVisible = oDoc.CurrentController.ViewCursor
With curseurVisible
.jumpToPage(1)
.jumpToEndOfPage
oRangeFinPage = .end
.jumpToStartOfPage
.gotoRange(oRangeFinPage, true)
End With
adresseDoc = "private:factory/swriter"
aCopier = ThisComponent.CurrentController.getTransferable()
oDoc = StarDesktop.loadComponentFromURL(adresseDoc, "_blank", 0, Array() )
curseurVisible = oDoc.currentController.viewCursor
oDoc.CurrentController.Select(curseurVisible)
oDoc.CurrentController.insertTransferable(aCopier)
adresseDoc = convertToURL("C:\a/") & nomFichier & ".odt"
oDoc.storeAsURL(adresseDoc, Array() )
oDoc.Close(True)
End Sub
ne fonctionne pas sur des documents de type regroupement.
Cordialement.
