Impression d'un document Notes en pdf.

[Patrick]

Bonjour,
Je suis en train de créer un script en VBScript, qui à pour but de récuperérer des informations d'un document Notes. Pour la recuperation des infos c'est ok.
Par contre il faudrait que je sauvegarde ce document en format .pdf. Et c'est là ou je ne sais plus et je fais appel à vos competences pour une petite aide .
Voici le debut de mon code :
'###########################################################
Const Titre = "Recuperation d'infos base Notes"
Const ForReading = 1, ForWriting = 2
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

''Message de lancement ou d'annulation du traitement
'###########################################################
Lancement = msgbox ("Lancement traitement", vbokCancel, Titre)
If Lancement = vbCancel then
wscript.quit
End If

'Declaration de variables
'###########################################################
Dim session, Dir, db, NbCol, NbFiche, NbTrait, HeureStart, HeureStop, TempTraitement
Dim TabLotus (), Tab ()
Dim SourcePath, FichierXls, FichierTexte, Donnees
Dim Status, NomKit, DateCreation, DateFin, Industrialisteur

'Initialisation Objets
'###########################################################
Set WshShell = CreateObject("Wscript.Shell")
set fs = CreateObject("Scripting.FileSystemObject")
'Initialisation de l'objet Lotus
Set session = CreateObject("Lotus.NotesSession")

'Initialisation de la session Lotus
'###########################################################
Call session.Initialize("MotDePasseSessionNotes") 'Sans demande du mot de passe

'Connexion au seveur
Set dir = session.GetDbDirectory("NomDuServer")
'Initialisation nom de la Base Notes
BaseDemDDA = "NomDeLaBase.nsf"
'Ouverture de la base
Set BaseNotes = dir.OpenDatabase(BaseDemDDA)
'Connexion sur la vue
Set view = BaseNotes.GetView("NomDeLaVue")
'Se placer sur le premier document de la vue
Set doc = view.GetFirstDocument

'Traitement de recuperation des données
'###########################################################
'Se placer sur le premier document
Set doc = view.GetFirstDocument

'Impression du document au format .pdf
'###########################################################
........

'###########################################################

J'ai vu sur le net qu'on pouvais utiliser "Call Print(1, 0, 0, False, "NomDeL'impriamnetPDF"), mais je n'arrive pas à le faire fonctionner.

Merci pour votre aide.

[Michael DELIQUE]

salut

tu code en VB dans lotus, ou tu as une appli a part qui viens interroger Lotus ?

[Michael DELIQUE]

d'apres ton code, il en manque un bout

tiré de l'aide en ligne :
Call notesUIDocument.Print( [ numCopies% [, fromPage% [, toPage% [, draft [, printerName]]]]] )

parceceque un print tout cours ne pourra jamais faire ça avec lotus.

[Patrick]

Merci Michael pour cette reponse,
C'est un code externe en VBScript.

Effectivement, la comande "print" ne peux pas fonctionné toute seule.

Si on va plus loin dans les recherches, il y en fait 2 types de dev : 1 basé sur COM et l'autre sur OLE (je crois).
Pour interrogé Notes via VBscript, il faut utiliser du COM, et là cette commande : Call notesUIDocument.Print( [ numCopies% [, fromPage% [, toPage% [, draft [, printerName]]]]] ), n'es pas supporté en COM :
"NotesUIDocument class
Represents the document that's currently open in the Notes workspace.
Remarque This class is not supported in COM"

Voila, et j'avoue que je ne sais pas comment contourner ce problème.

[Michael DELIQUE]

regarde ça => viewtopic.php?f=54&t=28638

c'es du Ls, mais ça devrais pas poser de souci pour le transcrire en VB