Discussion :

[charouel]

Bonjour,
Comment peut on convertir un fichier PDF vers une image tiff ou PNG sans utilisation d'imprimante virtuelle ?

Merci.

[charouel]

Bonjour,

C'est quoi le COM de AcroExch.AVDoc, AcroExch.App ?
Je veut convertir un pdf vers un tiff. Voila le code de conversion mais le problème se trouve avec ces ActiveX

Code :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
im FileName As String
 
Dim image As String = "Image"
 
Dim acroxavdoc As AcrobatAccessLib.IPDDomDocument
 
Dim acroxpddoc As AcrobatAccessLib.IPDDomDocument
 
Dim acroxapp As AcrobatAccessLib.IGetPDDomNode
 
acroxapp = CType(CreateObject("AcroExch.App"), AcrobatAccessLib.IAccID)
 
'Removing toolbar buttons from the user interface
 
With AcroXApp
 
.ToolButtonIsEnabled("SaveAS")
 
.ToolButtonRemove("Save")
 
.ToolButtonRemove("Open")
 
.ToolButtonRemove("AcroForm:WidgetTool")
 
End With
 
acroxavdoc = CType(CreateObject("AcroExch.AVDoc"), AcrobatAccessLib.IAccID)
 
FileName = "C:\Image.pdf"
 
AcroXAVDoc.Open(FileName, "Acrobat")
 
acroxpddoc = CType(acroxavdoc.GetPDDoc, AcrobatAccessLib.IAccID)
 
AcroXPDDoc.ClearFlags(&H1) 'Keep Acrobat from querying a file save when component closes
 
AcroXApp.Show()
 
AcroXApp.MenuItemExecute("SaveAs")
 
AcroXApp.Hide()
 
'SetParent(AcroHandle, 0)
 
AcroXAVDoc.Close(0)
 
AcroXApp.CloseAllDocs()
 
AcroXApp.Exit()