Bonjour,
J'ai crée une macro sur mon QV qui me permet d'imprimer un rapport par sélection (par nom) en PDf à l'aide de Bullzip.
Cependant, aucune impression ne se fait lorsqu'il y a qu'une sélection de faite dans la liste de nom, ou alors, si plusieurs noms sont sélectionnés, le dernier ne s'imprime jamais (si 4 Noms sélectionnés, seuls les 3 premiers s'impriment), d'après ce que j'ai pu comprendre, pour la dernière sélection, aucun nom n'est généré.
Voici la macro utilisée,
Code VB : 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 Sub ExportAndMail Set val=ActiveDocument.Fields("Nom").GetPossibleValues(200) For i = 0 to val.count-1 set Nom = val.Item(i) ActiveDocument.Fields("Nom").Select Nom.text ActiveDocument.PrintReport("RP02"), "Bullzip PDF Printer", false 'Printreport MyPrintPDFWithBullZip(reportFile) 'Call pdf printer reportFile = "C:\Documents and Settings\User\Bureau\" & Nom.text &".pdf" 'Setting outputname Next End sub FUNCTION MyPrintPDFWithBullZip (pdfOutputFile) set obj = CreateObject("Bullzip.PDFPrinterSettings") obj.SetValue "Output" , pdfOutputFile obj.SetValue "ConfirmOverwrite", "no" obj.SetValue "ShowSaveAS", "never" obj.SetValue "ShowSettings", "never" obj.SetValue "ShowPDF", "no" obj.SetValue "RememberLastFileName", "no" obj.SetValue "RememberLastFolderName", "no" obj.SetValue "ShowProgressFinished", "no" obj.SetValue "ShowProgress", "no" obj.WriteSettings True END FUNCTION
j'ai essayé de modifier le i=0 en i=1, et le val.count-1 en val.count mais le "set Nom = val.Item(i)" ne passe plus avec le message suivant "Argument ou appel de procédure incorrect"... Pourtant je pense que le problème vient de là...
Si quelqu'un pouvait me décoincer...
Je vous en remercie !
Partager