Discussion :

[MCoder]

J'ai une feuille OpenOffice cal avec des données qui vont jusqu'à la colonne "AB". Je ne dois imprimer que jusqu'à la colonne "K" et de la ligne "1" à la ligne "33".
L'utilisation de la propriété "PageScale" qui, pour moi évoquerait un zoom n'a pas d'effet ; l'impression me donne toujours 2 pages c'est-a-dire toutes les colonnes et lignes de la feuille.
Il y a-t-il comme sous Excel une fonction délimitant la zone d'impression ?
Sous Excel le code est celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Procedure Zone_A_Impression(var OLE_DeExcel: variant;ZoneSelectionnee: String);
Begin
   OLE_Excel.ActiveSheet.PageSetup.PrintArea := ZoneSelectionnee;
End;

Voici le code que j'utilise pour l'impression de la feuille OpenOffice calc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
procedure ImprimerPagesDeA(OOoNomFeuille: variant; De, A, nbPages : integer;  Zoom_Page : integer=100);
Var
  PrinterOpt : variant;
  PropertyValue : Variant;
  Size:    Variant;
  Width:  Integer;
 
begin
   CoreReflection := OpenOffice.createInstance('com.sun.star.reflection.CoreReflection');
   CoreReflection
           .forName('com.sun.star.beans.PropertyValue')
           .createObject(propertyValue);
 
 
  printerOpt := VarArrayCreate([0, 1], varVariant);
  propertyValue.Name := 'Pages';
  propertyValue.Value := IntToStr(De) + '-' + IntToStr(A); //'1-2';
  printerOpt[0] := propertyValue;
 
  propertyValue.Name := 'CopyCount';
  propertyValue.Value := NbPages; //2;
  printerOpt[1] := propertyValue;
 
  PageStyleCollection := DocumentOpenOffice.StyleFamilies.getByName('PageStyles');
  PropertySet := PageStyleCollection.getByName(OOoMaFeuille.PageStyle); 
  if not PropertySet.IsLandscape then
  begin
    //.. c'est dans ce bloc qu'il faut inclure ttes les propriétés de style de
    //.. page dont on a besoin
    Size := PropertySet.Size;
    Width := Size.Width;
    Size.Width := Size.Height;
    Size.Height := Width;
 
    PropertySet.Size := Size;
    PropertySet.IsLandscape := True;
 
    PropertySet.PageScale := Zoom_Page;//.. Zoom à 80% n'a pas l'air de marcher
 
    PropertySet.HeaderIsOn := False; //.. Pas d'en-tête (..nom de la feuille..)
    PropertySet.FooterIsOn := False; //.. Pas de bas de page (..N° de la page..)
 
    PropertySet.CenterVertically := True; //.. Centrage vertical du tableau
    PropertySet.CenterHorizontally := True; //.. Centrage horizoncal du tableau
 
    PropertySet.TopMargin := 500; //.. Marge partie haut de page en 1/100 de mm
    PropertySet.BottomMargin := 500; //.. Marge partie bas de page en 1/100 de mm
end;
 
DocumentOpenOffice.print(PrinterOpt);

[defluc]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  dim args2(2) as new com.sun.star.beans.PropertyValue
  args2(0).Name = "PrintArea"
  args2(0).Value = "$A$2:$K$20" 
  args2(1).Name = "PrintRepeatRow"
  args2(1).Value = "$A$1:$K$1"
  args2(2).Name = "PrintRepeatCol"
  args2(2).Value = ""
  dispatcher.executeDispatch(document, ".uno:ChangePrintArea", "", 0, args2())

A adapter

[MCoder]

A defluc :

merci pour ta réponse rapide. Je ne suis pas un adepte du basic mais je vais devoir essayer de traduire ce code pour être utilisable sur environnement delphi.
C'est vrai que je n'ai pas préciser sur quel environnement je développe : DELPHI 7.

[MCoder]

J'ai essayé de rajouter le code de "defluc" comme ceci mais il n'y a aucun changement à l'impression qui me sort toujours les 2 pages de la feuille calc qui va de la colonne "A1" à "AB" et sur plusieurs lignes. Je ne voudrais imprimer que les colonnes allant de "A" à "K" et quelques lignes. Peut-être que je n'ai pas bien traduit ce code de "defluc" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
printerOpt := VarArrayCreate([0, 2], varVariant);
  propertyValue.Name := 'Pages';
  propertyValue.Value := IntToStr(De) + '-' + IntToStr(A); //'1-2';
  printerOpt[0] := propertyValue;
 
  propertyValue.Name := 'CopyCount';
  propertyValue.Value := NbPages; //2;
  printerOpt[1] := propertyValue;
 
  propertyValue.Name := 'PrintArea';
  propertyValue.Value := '$A$1:$K$24';
  printerOpt[2] := propertyValue; 
  ExecDispatch('.uno:ChangePrintArea', dummyArray);

Si quelqu'un a une idée pour me venir en aide.
Merci d'avance. J'utilise Delphi 7.