OVH Cloud OVH Cloud

Valider un print par macro

4 réponses
Avatar
Franck
Bonjour,
J'ai une macro qui transforme mon classeur en pdf comme suit :

Sheets(strSelectedSheetArray).Select
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=3D"Adobe PDF on
Ne01:", PrintToFile:=3DTrue, PrToFileName:=3DstrMenuFilePS

Mon probl=E8me est qu'il me demande de valider l'emplacement du pdf en
ouvrant une "FileSaveBox".

Y'a-t-il un moyen de forcer la validation et donc, de ne pas voir
apparaitre la fenetre de validation de l'emplacement du futur pdf ?

merci de votre aide.

4 réponses

Avatar
Oliv'
Franck que je salut a écrit dans

Bonjour,
J'ai une macro qui transforme mon classeur en pdf comme suit :

Sheets(strSelectedSheetArray).Select
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Adobe PDF on
Ne01:", PrintToFile:=True, PrToFileName:=strMenuFilePS

Mon problème est qu'il me demande de valider l'emplacement du pdf en
ouvrant une "FileSaveBox".

Y'a-t-il un moyen de forcer la validation et donc, de ne pas voir
apparaitre la fenetre de validation de l'emplacement du futur pdf ?

merci de votre aide.
Voici ce que je fais dans une de mes macros et je n'ai pas de problème de

confirmation.

pdf_name = "c:temp" + name_doc + ".pdf"
'modification des options d'impression
With Options
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = True
.PrintBackground = False
End With
ActivePrinter = "Amyuni PDF Converter"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:úlse, Collate:=True, Background:úlse,
PrintToFile:= _
True, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0, OutputFileName:=pdf_name, Append:úlse


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
Franck
With Options ? C'est quel objet ?
Mon PrintOut prend pas du tout ces param là !

C'est pas une macro pour word ?
Avatar
Franck
Mea Culpa, ca fonctionne impec.
Merci à toi ^^
Avatar
Oliv'
Franck que je salut a écrit dans

With Options ? C'est quel objet ?
Mon PrintOut prend pas du tout ces param là !

C'est pas une macro pour word ?


euh si ;-))) mais ca doit marcher aussi


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~