Bonjour,
De retour d'une période sans ordinateur.
Je reviens vous embêter avec mon problème d'impression de page.
Avec l'aide d'un collègue, on essaye de pondre une macro pour faire en
sorte que les pages dans lesquelles les tableaux ne sont pas remplis (parce
que pas besoin suivant le dossier traité) ne soit pas imprimable.
Sub GotoPage(Page)
Dim Doc As Object
dim nbpages as string
dim pageencours as string
Dim oCC As Object , oCursor As Object
Dim monCurseur as object
'dim nbpages as object
Doc = ThisComponent
Curseur = ThisComponent.currentController.getViewCursor
'monTexte = Doc.Text
'monCurseurInvisible = monTexte.createTextCursor
While Curseur.jumpToNextPage <> False
msgbox("mon curseur " & Curseur.page)
if Curseur.page = 2 then
'le tableau de la page2 se nomme tableau8
maTable = Doc.TextTables.getByName("Tableau8")
'la cellule du nom est A1
maCellule = maTable.getCellByName("A1")
texteCellule = maCellule.String
if texteCellule <> "" then
msgBox ("tableau 8 " & texteCellule)
else
msgBox ("tableau 8 est vide " )
endif
endif
if Curseur.page = 3 then
'le tableau de la page2 se nomme tableau12
maTable = Doc.TextTables.getByName("Tableau12")
'la cellule du nom est A1
maCellule = maTable.getCellByName("A1")
texteCellule = maCellule.String
if texteCellule <> "" then
msgBox ("tableau 12 " & texteCellule)
Curseur.jumpToPage(Curseur.page)
monCurseur = Doc.Text.createTextCursor
monCurseur.gotoNextParagraph(False)
monCurseur.gotoNextParagraph(True)
msgbox monCurseur.String
else
msgBox ("tableau 12 est vide " )
Curseur.jumpToPage(Curseur.page)
monCurseur = ThisComponent.createTextCursor
monCurseur.gotoNextParagraph(False)
monCurseur.gotoNextParagraph(True)
msgbox monCurseur.String
' Curseur.jumpToEndStartOfPage
endif
endif
Wend
msgbox (" fin à " & Curseur.page)
End Sub
On est arrivé à tester si les tableaux de la page 2 et de la page 3 sont
remplis ou pas, ce que l'on arrive pas à faire c'est de supprimer la ou les
pages page qui n'ont pas besoin d'être imprimé lors de l'édition.
J'espère que cette petite explication est un peu plus claire.
Cordialement
--
View this message in context:
http://nabble.documentfoundation.org/Writer-Ne-pas-imprimer-seconde-et-troisieme-page-si-pas-renseigne-tp3719210p3760289.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être
supprimés