Je souhaite ajouter un QRCODE sur un rapport BASE, pour faire des etiquettes. Mais le plugin ne permet pas d'accéder facilement à ses paramètres. or cela fonctionne bien via le menu, il doit donc exister façon dev, une solution pour intégrer et mettre a jour un Qrcode... au moins sur le formulaire.. enfin je l'espere...
j'ai trouvé ce code, que je n'ai pas réussi a faire fonctionner, quelqu'un aurrais t'il des pistes a suivre ?
' ╔═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╗
' ║ QRCODE GENERATION
' ╚═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╝█
' ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
' ne fonctionne pas !!!
'
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 sub AddQrcode rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object dim args1(2) as new com.sun.star.beans.PropertyValue rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") args1(0).Name ="Payload" args1(0).Value = "Ananas" args1(1).Name = "Border" args1(1).Value = 2 args1(2).Name = "ErrorCorrection" args1(2).Value = 2 dispatcher.executeDispatch(document, ".uno:InsertQrCode", "", 0,args1()) End sub
Partager