Bonjour à tous,

Dans un calc, nous complétons des infos dans un panneaux, en fonction des cases cochées, nous imprimons - devrions imrpimer.... - tel ou tel document

En fait chaque doc est une feuille, donc, pour l'impression, un n° de page.

J'ai bidouillé une macro qui fonctionnait hier matin... mais ne fonctionne plus depuis ! Là voici,

sub PrintNL 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 Attest

Attest = thisComponent.currentController.activesheet.getCellRangeByName("B28").value If Attest <> "" then Attest = "3,4,6" Else Attest = "3,4" End if 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 = Attest args1(2).Name = "Collate" args1(2).Value = false

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

end sub

OU se trouverait l'erreur ??

Merci de vos réponse et bonne journée

http://www.fmsb.be