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
Christophe Mathysen
Fédération des Mutualités Socialistes du Brabant
Tel 02 506 96 11 - Fax 02 514 59 26
http://www.fmsb.be
