Bonjour, J'ai un problème concernant l'impression d'un document calc. En utilisant le code ci-dessous (une partie de la macro Open Office Basic) si je demande l'impression d'un exemplaire j'obtiens ce que je demande, mais si je demande plus d'un exemplaire le programme en imprime deux fois plus. Pourriez-vous me dire où se trouve l'erreur. Le code a été écrit à partir d'une macro enregistrée automatiquement

sub ImpressionCatalogueEuroFrancais rem ---------------------------------------------------------------------- rem define variables dim documentwebpdf as object dim lesfeuilles as object dim feuille as object dim zone as object dim dispatcher as object Dim sText As String, nbrecopies as single dim textexemplaires as string, textrectoimprimes as string documentwebpdf=thisComponent lesfeuilles=documentwebpdf.sheets feuille=lesfeuilles.getByName("catZoneEuroFrançais") zone=feuille.getcellrangebyname("A1:I35") documentwebpdf.currentcontroller.Select(zone) sText = InputBox ("Entrez le nombre d'exemplaires :","Catalogue Zone Euro Français") nbrecopies=int(sText) dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") documentwebpdf = ThisComponent.CurrentController.Frame if nbrecopies>0 then

if nbrecopies = 1 then textexemplaires = " exemplaire" else textexemplaires = " exemplaires" if MsgBox ("Confirmer l'impression de " & nbrecopies & textexemplaires & " du recto. ", 1, "Impression Catalogue Zone Euro Français")= 2 then goto fin rem ---------------------------------------------------------------------- rem get access to the documentwebpdf

rem ---------------------------------------------------------------------- dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "ToPoint" args2(0).Value = "$A$1:$I$35"

dispatcher.executeDispatch(documentwebpdf, ".uno:GoToCell", "", 0, args2())

rem ---------------------------------------------------------------------- dispatcher.executeDispatch(documentwebpdf, ".uno:DefinePrintArea", "", 0, Array())

rem ---------------------------------------------------------------------- dim args4(2) as new com.sun.star.beans.PropertyValue args4(0).Name = "Copies" args4(0).Value = nbrecopies args4(1).Name = "Selection" args4(1).Value = true args4(2).Name = "Collate" args4(2).Value = false

dispatcher.executeDispatch(documentwebpdf, ".uno:Print", "", 0, args4()) end if

Merci d'avance

www.flute-a-bec.com