Bonjour,
Une dernière question que dois je mettre comme type de chemin dans : wPathFileSource
Merci d'avance
Une dernière question que dois je mettre comme type de chemin dans : wPathFileSource
Merci d'avance
Forums Lotus Domino/Notes en Français
http://forum.dominoarea.org/
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIview
Call PDFCreator ()
Sleep 10
Set uidoc = workspace.CurrentView
Call uidoc.Print (1)
Sleep 1
Call PDFCreator1 ()
Sleep 2
End SubSub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIview
Call PrinterDefautSet ("PDFCreator")
sleep 1
Set uidoc = workspace.CurrentView
Call uidoc.Print (1)
End SubDim WshNetwork As Variant
Dim WshPrinters As Variant
Dim PrinterPath As String
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIdocument
Set uidoc = workspace.Currentdocument
Set WshNetwork = CreateObject("WScript.Network")
Set WshPrinters = WshNetwork.EnumPrinterConnections()
PrinterPath = "PDFCreator"
WshNetwork.SetDefaultPrinter Cstr(PrinterPath)
Yield
Set uidoc = workspace.Currentdocument
Call uidoc.Print ()