 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
5 messages in org.openoffice.fr.prog[prog] Programmation Calc| From | Sent On | Attachments |
|---|---|---|
| cjfj | Dec 20, 2005 7:13 am | |
| Bernard Marcelly | Dec 20, 2005 7:32 am | |
| cjfj | Dec 20, 2005 1:28 pm | |
| cjfj | Dec 21, 2005 12:49 am | |
| Bernard Marcelly | Dec 21, 2005 2:00 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | [prog] Programmation Calc | Actions... |
|---|---|---|
| From: | cjfj (cj...@free.fr) | |
| Date: | Dec 20, 2005 7:13:23 am | |
| List: | org.openoffice.fr.prog | |
Me revoilà avec mes feuilles à imprimer. Je rame toujours avec OOBasic. Je m'explique : J'ai 4 feuilles dans mon classeur (Feuille1 à Feuille4) Je ne souhaite imprimer que les feuilles 2 à 4, mais en une seule fois. Voilà ce que j'ai écri. Si j'imprimer chaque feuille séparément ça fonctionne, mais dès que j'essai d'imprimer les 3, il n'y a que la première qui s'imprime. Pouvez-vous me dire ce qui ne va pas. J'ai beau lire et relire votre livre, je ne trouve pas.... Et dire que ce ne sont que mes débuts en OOBasci ; ça promet. Merci
Sub ImprimerTout ImprimerFeuille2 ImprimerFeuille3 ImprimerFeuille4 End Sub
Sub ImprimerFeuille2 Dim monDocument As Object Dim mesFeuilles As Object Dim maFeuille As Object Dim maZone As Object Dim Props() As New com.sun.star.beans.PropertyValue Dim adrZones() As New com.sun.star.table.CellRangeAddress monDocument = thisComponent mesFeuilles = monDocument.Sheets maFeuille = mesFeuilles.getByName("Feuille2") monDocument.currentController.activeSheet = maFeuille maZone = maFeuille.getCellRangeByName("A1:J32") monDocument.currentController.Select(maZone) adrZones() = maZone.RangeAddress maFeuille.PrintAreas = adrZones() monDocument.Print(Props()) End Sub
Sub ImprimerFeuille3 Dim monDocument As Object Dim mesFeuilles As Object Dim maFeuille As Object Dim maZone As Object Dim Props() As New com.sun.star.beans.PropertyValue Dim adrZones() As New com.sun.star.table.CellRangeAddress monDocument = thisComponent mesFeuilles = monDocument.Sheets maFeuille = mesFeuilles.getByName("Feuille3") monDocument.currentController.activeSheet = maFeuille maZone = maFeuille.getCellRangeByName("A1:N25") monDocument.currentController.Select(maZone) adrZones() = maZone.RangeAddress maFeuille.PrintAreas = adrZones() monDocument.Print(Props()) End Sub
Sub ImprimerFeuille4 Dim monDocument As Object Dim mesFeuilles As Object Dim maFeuille As Object Dim maZone As Object Dim Props() As New com.sun.star.beans.PropertyValue Dim adrZones() As New com.sun.star.table.CellRangeAddress monDocument = thisComponent mesFeuilles = monDocument.Sheets maFeuille = mesFeuilles.getByName("Feuille COG 2") monDocument.currentController.activeSheet = maFeuille maZone = maFeuille.getCellRangeByName("A1:H18") monDocument.currentController.Select(maZone) adrZones() = maZone.RangeAddress maFeuille.PrintAreas = adrZones() monDocument.Print(Props()) End Sub