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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163
| Option Explicit
Sub Liste_Valeurs_PDFCreator()
Dim JobPDF As Object
Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
With JobPDF
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Initialisation PDFCreator impossible.", vbCritical + _
vbOKOnly, "PDFCreator"
Exit Sub
End If
Application.ScreenUpdating = False
Feuil1.Cells.Clear
Feuil1.Cells(1, 1) = ".cOption(""AutosaveDirectory"") = "
Feuil1.Cells(1, 2) = .coption("AutosaveDirectory")
Feuil1.Cells(2, 1) = ".cOption(""AutosaveFilename"")="
Feuil1.Cells(2, 2) = .coption("AutosaveFilename")
Feuil1.Cells(3, 1) = ".cOption(""AutosaveFormat"")="
Feuil1.Cells(3, 2) = .coption("AutosaveFormat")
Feuil1.Cells(4, 1) = ".cOption(""AutosaveStartStandardProgram"")="
Feuil1.Cells(4, 2) = .coption("AutosaveStartStandardProgram")
Feuil1.Cells(5, 1) = ".cOption(""PDFDisallowCopy"")="
Feuil1.Cells(5, 2) = .coption("PDFDisallowCopy")
Feuil1.Cells(6, 1) = ".cOption(""PDFDisallowModifyAnnotations"")="
Feuil1.Cells(6, 2) = .coption("PDFDisallowModifyAnnotations")
Feuil1.Cells(7, 1) = ".cOption(""PDFDisallowModifyContents"")="
Feuil1.Cells(7, 2) = .coption("PDFDisallowModifyContents")
Feuil1.Cells(8, 1) = ".cOption(""PDFDisallowPrinting"")="
Feuil1.Cells(8, 2) = .coption("PDFDisallowPrinting")
Feuil1.Cells(9, 1) = ".cOption(""PDFEncryptor"")="
Feuil1.Cells(9, 2) = .coption("PDFEncryptor")
Feuil1.Cells(10, 1) = ".cOption(""PDFOwnerPass"")="
Feuil1.Cells(10, 2) = .coption("PDFOwnerPass")
Feuil1.Cells(11, 1) = ".cOption(""PDFOwnerPassString"")="
Feuil1.Cells(11, 2) = .coption("PDFOwnerPassString")
Feuil1.Cells(12, 1) = ".cOption(""PDFUserPass"")="
Feuil1.Cells(12, 2) = .coption("PDFUserPass")
Feuil1.Cells(13, 1) = ".cOption(""PDFUserPassString"")="
Feuil1.Cells(13, 2) = .coption("PDFUserPassString")
Feuil1.Cells(14, 1) = ".cOption(""PDFUseSecurity"")="
Feuil1.Cells(14, 2) = .coption("PDFUseSecurity")
Feuil1.Cells(15, 1) = ".cOption(""PrinterTempPath"")="
Feuil1.Cells(15, 2) = .coption("PrinterTempPath")
Feuil1.Cells(16, 1) = ".cOption(""UseAutosave"")="
Feuil1.Cells(16, 2) = .coption("UseAutosave")
Feuil1.Cells(17, 1) = ".cOption(""UseAutosaveDirectory"")="
Feuil1.Cells(17, 2) = .coption("UseAutosaveDirectory")
Feuil1.Cells(18, 1) = ".cOption(""UseCreationdate"")="
Feuil1.Cells(18, 2) = .coption("UseCreationdate")
Feuil1.Cells(19, 1) = ".cOption(""UseStandardAuthor"")="
Feuil1.Cells(19, 2) = .coption("UseStandardAuthor")
' Options Cachées
Feuil1.Cells(20, 1) = ".cOption(""DisableEmail"")="
Feuil1.Cells(20, 2) = .coption("DisableEmail")
Feuil1.Cells(21, 1) = ".cOption(""DisableUpdateCheck"")="
Feuil1.Cells(21, 2) = .coption("DisableUpdateCheck")
Feuil1.Cells(22, 1) = ".cOption(""PDFCompressionColorCompression"")="
Feuil1.Cells(22, 2) = .coption("PDFCompressionColorCompression")
Feuil1.Cells(23, 1) = ".coption(""PDFCompressionColorCompressionJPEGMaximumFactor"")="
Feuil1.Cells(23, 2) = .coption("PDFCompressionColorCompressionJPEGMaximumFactor")
Feuil1.Cells(24, 1) = ".coption(""PDFCompressionColorCompressionJPEGHighFactor"")="
Feuil1.Cells(24, 2) = .coption("PDFCompressionColorCompressionJPEGHighFactor")
Feuil1.Cells(25, 1) = ".coption(""PDFCompressionColorCompressionJPEGMediumFactor"")="
Feuil1.Cells(25, 2) = .coption("PDFCompressionColorCompressionJPEGMediumFactor")
Feuil1.Cells(26, 1) = ".coption(""PDFCompressionColorCompressionJPEGLowFactor"")="
Feuil1.Cells(26, 2) = .coption("PDFCompressionColorCompressionJPEGLowFactor")
Feuil1.Cells(27, 1) = ".coption(""PDFCompressionColorCompressionJPEGMinimumFactor"")="
Feuil1.Cells(27, 2) = .coption("PDFCompressionColorCompressionJPEGMinimumFactor")
Feuil1.Cells(28, 1) = ".cOption(""PDFCompressionGreyCompression"")="
Feuil1.Cells(28, 2) = .coption("PDFCompressionGreyCompression")
Feuil1.Cells(29, 1) = ".coption(""PDFCompressionGreyCompressionJPEGMaximumFactor"")="
Feuil1.Cells(29, 2) = .coption("PDFCompressionGreyCompressionJPEGMaximumFactor")
Feuil1.Cells(30, 1) = ".coption(""PDFCompressionGreyCompressionJPEGHighFactor"")="
Feuil1.Cells(30, 2) = .coption("PDFCompressionGreyCompressionJPEGHighFactor")
Feuil1.Cells(31, 1) = ".coption(""PDFCompressionGreyCompressionJPEGMediumFactor"")="
Feuil1.Cells(31, 2) = .coption("PDFCompressionGreyCompressionJPEGMediumFactor")
Feuil1.Cells(32, 1) = ".coption(""PDFCompressionGreyCompressionJPEGLowFactor"")="
Feuil1.Cells(32, 2) = .coption("PDFCompressionGreyCompressionJPEGLowFactor")
Feuil1.Cells(33, 1) = ".coption(""PDFCompressionGreyCompressionJPEGMinimumFactor"")="
Feuil1.Cells(33, 2) = .coption("PDFCompressionGreyCompressionJPEGMinimumFactor")
Feuil1.Cells(34, 1) = ".cOption(""PDFOwnerPasswordString"")="
Feuil1.Cells(34, 2) = .coption("PDFOwnerPasswordString ")
Feuil1.Cells(35, 1) = ".cOption(""PDFUserPasswordString"")="
Feuil1.Cells(35, 2) = .coption("PDFUserPasswordString ")
Feuil1.Cells(36, 1) = ".cOption(""RemoveAllKnownFileExtensions"")="
Feuil1.Cells(36, 2) = .coption("RemoveAllKnownFileExtensions")
Feuil1.Cells(37, 1) = ".cOption(""StandardCreationdate"")="
Feuil1.Cells(37, 2) = .coption("StandardCreationdate")
Feuil1.Cells(38, 1) = ".cOption(""StandardDateformat"")="
Feuil1.Cells(38, 2) = .coption("StandardDateformat")
Feuil1.Cells(39, 1) = ".cOption(""StandardKeywords"")="
Feuil1.Cells(39, 2) = .coption("StandardKeywords")
Feuil1.Cells(40, 1) = ".cOption(""StandardModifydate"")="
Feuil1.Cells(40, 2) = .coption("StandardModifydate")
Feuil1.Cells(41, 1) = ".cOption(""StandardSubject"")="
Feuil1.Cells(41, 2) = .coption("StandardSubject")
Feuil1.Cells(42, 1) = ".cOption(""StandardTitle"")="
Feuil1.Cells(42, 2) = .coption("StandardTitle")
Feuil1.Cells(43, 1) = ".cOption(""ClientComputerResolveIPAddress"")="
Feuil1.Cells(43, 2) = .coption("ClientComputerResolveIPAddress")
Feuil1.Range("A20:A43").Interior.ColorIndex = 40
Feuil1.Cells(1, 3).Select
Application.ScreenUpdating = True
End With
Set JobPDF = Nothing
Kill_PDFCreator
End Sub
Private Sub Kill_PDFCreator()
Dim RetVal As Long
RetVal = Shell("Taskkill /im PDFCreator.exe /f", 0)
End Sub |
Partager