[Calc]Imprimer une page en particulier

[patbart]

Bonjour,

Je voudrais pouvoir imprimer rien qu'une page sur une feuille. J'ai trouvé sur le forum la procédure de Prisc
mais je n'arrive pas imprimer juste une page en particulier.

Code: Tout sélectionner   AgrandirRéduire

dim feuille as object
dim cellules as object
dim imprim(2) as New com.sun.star.beans.PropertyValue     
feuille = ThisComponent.Sheets.GetByName("fiche")
cellules = feuille.getcellrangebyname("A1:O59")
'SELECTIONNE LA ZONE A IMPRIMER
ThisComponent.CurrentController.select(cellules)
'EFFECTUE 2 COPIES
imprim(0).Name = "CopyCount"
imprim(0).Value = 2
'IMPRIME JUSTE LA 1ERE PAGE
imprim(1).Name = "Page"
imprim(1).Value = "1"
'EFFECTUE L'IMPRESSION
ThisComponent.Print(imprim())

J'ai essayé en changeant le n° de la page mais cela donne rien.

Code: Tout sélectionner   AgrandirRéduire

'IMPRIME JUSTE LA 1ERE PAGE
imprim(1).Name = "Page"
imprim(1).Value = "2"

Merci de m'éclairer.
@+ Patbart

[Dude]

Salut,

On va (encore) se répéter : en plus du code, fournir avec un fichier complet. Cela augmentera les chances de réponse en évitant d'avoir à recréer quelque chose qui au final, pourrait ne pas convenir.

Rapidement fait :

Code: Tout sélectionner   AgrandirRéduire

Sub ImprimeZone

    dim oDoc as object
    dim dispatcher as object
    dim oZone as object
    dim oClasseur as object
    dim oFeuille as object
    dim PropVal(2) as new com.sun.star.beans.PropertyValue

    oDoc = ThisComponent
    oClasseur = Mondocument.sheets
    oFeuille = oClasseur.getByName("Test") '<< ici le nom de la feuille
    oZone = oFeuille.getCellRangeByName("A1:J10") '<< la zone à imprimer
    Mondocument.currentController.Select(oZone)

    oDoc = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    PropVal(0).Name = "Copies"
    PropVal(0).Value = 1
    PropVal(1).Name = "Selection"
    PropVal(1).Value = true
    PropVal(2).Name = "Collate"
    PropVal(2).Value = false

    dispatcher.executeDispatch(oDoc, ".uno:Print", "", 0, PropVal())

End sub

[patbart]

Bonjour Dude,

J'ai essayé ton code , il fonctionne en partie. Il imprime toute la feuille et non pas une zone définie.
Mais ce n'est pas vraiment ça que je souhaite, définir une zone, j'ai réussi à le faire ce que je voudrai,
c'est sur une feuille de plusieurs pages pouvoir imprimer par exemple la feuille 4.
Et là, je bloque.
Ci joint un fichier avec ton code et le code de Prisc.

test_impression.ods

(13.74 Kio) Téléchargé 6 fois

Merci.
@+ Patbart

[Dude]

Mais ce n'est pas vraiment ça que je souhaite, définir une zone, j'ai réussi à le faire ce que je voudrai,
c'est sur une feuille de plusieurs pages pouvoir imprimer par exemple la feuille 4.

Et bien, tu définies une zone du contenu de ce qui va s'imprimer en page 4

[patbart]

C'est une solution mais il doit bien avoir
moyen d'imprimer une page sans être obligé
de définir une zone.
Je continue mes recherches...

Merci Dude

[patbart]

Re Bonjour,

J'ai trouvé une solution. Je me suis servi de l'enregistreur de macro
et j'ai fait une boite de dialogue avec des boutons options qui m'impriment
les pages que je souhaite.
Voici une partie du code pour imprimer

Code: Tout sélectionner   AgrandirRéduire

sub PageUn
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Copies"
args1(0).Value = 1
args1(1).Name = "RangeText"
args1(1).Value = "1"
args1(2).Name = "Collate"
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args1())

end sub

J'ai copié plusieurs fois ce code et j'ai modifié la partie
args1(1).Value = "1" en mettant le n° de la page
J'ai essayé de faire une boucle pour m'éviter de répéter
plusieurs fois la même procédure mais je n'ai pas réussi.
Voici le fichier modifié si ça peut aider quelqu'un ou
si quelqu'un arrive à faire plus court.

Bonne soirée

test_impression.ods

(15.9 Kio) Téléchargé 1 fois

Merci de ne pas poster plusieurs messages à la suite !
Si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.

En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

[bm92]

Bonsoir,

Je voudrais pouvoir imprimer rien qu'une page sur une feuille. J'ai trouvé sur le forum la procédure de Prisc
mais je n'arrive pas imprimer juste une page en particulier.

Code: Tout sélectionner   AgrandirRéduire

( ... )
'IMPRIME JUSTE LA 1ERE PAGE
imprim(1).Name = "Page"
imprim(1).Value = "1"
'EFFECTUE L'IMPRESSION
ThisComponent.Print(imprim())

J'ai essayé en changeant le n° de la page mais cela donne rien.

Donner un lien vers le fil où tu as trouvé la procédure de Prisc nous évite de perdre du temps à le chercher
Il s'agit de ce fil. Prisc ne cherchait pas à imprimer une seule page, mais une zone de cellules. Et il a marqué Résolu parce que sa zone s'imprimait sur une seule page
Pour se limiter à une seule page d'impression, la macro ne marche pas, à cause d'une petite erreur. Il faut écrire :

Code: Tout sélectionner   AgrandirRéduire

'IMPRIME JUSTE LA PAGE 2
imprim(1).Name = "Pages"
imprim(1).Value = "2"

Le nom du paramètre est Pages, au pluriel.

[patbart]

Bonjour,

En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

Je regarde ce qui est demandé et si c'est à ma porté je le fais.

bm92, vu pour le "s", par contre j'ai essayé de remplacer le "1" par une variable
du style
page = 1
imprim(1).Value = page
mais cela ne fonctionne pas, as tu une idée.

Merci

[Alain de La Chaume]

Bonjour patbart

bm92 vous a dit :

Code: Tout sélectionner   AgrandirRéduire

'IMPRIME JUSTE LA PAGE 2
imprim(1).Name = "Pages"
imprim(1).Value = "2"

et non pas :

Code: Tout sélectionner   AgrandirRéduire

'IMPRIME JUSTE LA PAGE 2
imprim(1).Name = "Pages"
imprim(1).Value = 2

[patbart]

Bonjour Alain de la Chaume,

J'ai compris ce qu'a dit bm92, mais je demandais si
il était possible de remplacer le "1" par une variable.
Dans le fichier joint un peu plus haut, j'ai créé une boîte de
dialogue avec des boutons options

Code: Tout sélectionner   AgrandirRéduire

for x = 1 to 6
If impression(x) = true then
page = x
exit for
end if
next x
imprim(1).name = "Pages"
imprim(1).Value = "1" remplacé par la variable  page


Voilà en gros ce que j'aimerais

Patbart

[bm92]

Bonjour,

L'option Pages doit recevoir une chaîne de caractères.
Avec la même syntaxe que dans l'impression par le menu Fichier > Imprimer

Pages
Imprime uniquement les pages spécifiées dans la zone Pages.
Pour imprimer une série de pages, insérez un tiret entre les numéros de page (3-6). Pour imprimer des pages individuelles, utilisez des points-virgules (7;9;11). Il est également possible d'imprimer un ensemble de séries de pages et de pages individuelles en combinant tirets et points-virgules (3-6;8;10;12).