[VBA]excel vers pdf

Version imprimable

Voir 40 message(s) de cette discussion en une page

15/10/2007, 18h24
Oussbaba au rhum

merci pour cette remarque

le fait de diffuser mon code est uniquement pour montrer ce a quoi vous avez participer

de plus a pres plusieurs tests, l'imprimante par de faut ne se modifie pas avec ce code.je m'explique, bien que ce soit l'imprimante pdf dans le code, il imprime en fichier sur l'imprimante hp....:cry:

Normal ! Tu désignes l'imprimante PDF dans ta ligne de commande, tu ne modifies pas l'imprimante par défaut.
Pour modifier l'imprimante par défaut, il faudrait mettre

Code:

Application.activeprinter = "Acrobat PDF on Ne00:"

Et pour remettre l'imprimante par défaut, tu dois mettre avant la ligne
Code:

1 2 3 4 5 6 7 ImpriDefaut = Application.activeprinter 'puis Application.activeprinter = "Acrobat PDF on Ne00:" 'Ton code pour générer le PDF '....... 'puis, pour rétablir Application.activeprinter = ImpriDefaut
Bonne soirée

15/10/2007, 21h50
fred65200

merci pour l'info ouslel'n'ou

Citation:

Hello Fred, tu sais qu'on peut remplacer cette fonction par
Code :
Wait Secondes

Je ne connaissais pas.:yaisse2:
fred65200
15/10/2007, 22h46
ouskel'n'or

Donnant donnant ! Que m'apprends-tu aujourd'hui ? Il te reste une heure 18... 17 ...:mouarf:
15/10/2007, 23h24
kiki29

Re,
ou peut-être plutôt
Application.ActivePrinter = "Adobe PDF sur NeXY:"
ou XY sera à trouver via le macro recorder
16/10/2007, 09h22
ouskel'n'or

Citation:

Envoyé par kiki29

Re,
ou peut-être plutôt
Application.ActivePrinter = "Adobe PDF sur NeXY:"
ou XY sera à trouver via le macro recorder

Ouskel' est la macro Recorder ? :lol:
Hello Kiki,
La question sur les PDF est récurrente. Il serait intéressant que tu places ton code dans Contribuez. Tu donnes le contexte (Distiller ou pas Distiller), le code et les outils annexes, par exemple la fameuse macro Recorder...
Tu seras le bienvenu et ton code pourra être mis dans la FAQ.
Par avance, merci pour tous
A+

PS - Sais-tu à quoi correspond exactement le "on NeNN:" ou "sur NeNN:" nécessaire dans la désignation de l'imprimante ? Merci

j'ai resolu mon pb d'imprimante
ca venait du fait que le port n'est pas toujours le meme
j'ai donc trouvé ceci(eh non ce n'est pas de moi:oops:) qui marche nickel
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub SélectImprimante() For i = 0 To 9 nom = "Adobe PDF sur Ne0" & i & ":" On Error Resume Next Application.ActivePrinter = nom If ActivePrinter = nom Then Exit For End If Next End Sub
merci pour votre aide:king:

Pour me contredire moi même en encombrant le paysage, en combinant l'ensemble des codes fournis par Oussbaba au rhum et Ouskel'n'or, au final le code devrait être du style

Code:

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
'   sous VBE Menu Outils | Références
'   Cocher Acrobat Distiller
 
Sub Tst_Adobe_PDF_03()
Dim sNomFichierPS As String
Dim sNomFichierPDF As String
Dim sNomFichierLOG As String
Dim PDFDist As PdfDistiller
Dim PrinterDefault As String
 
    '   Sur un PC "Personnel" : a priori choix libre du Nom
    '   et de l'emplacement du fichier de sortie
    '
    '   Sur un PC "Entreprise" :
    '   Il faut être logué en Administrateur ou en
    '   Avoir les droits pour utiliser Distiller
    '   Les chemins PS PDF LOG devront être de la forme :
    '       "C:\Documents and Settings\UserName\.....\....."
 
    '   Si l'on a plusieurs imprimantes il faut :
    '       Sélectionner l'imprimante virtuelle Adobe PDF tout en conservant
    '           trace de l'imprimante utilisée par défaut
    '   Le N° de port réseau NeXY varie suivant le PC sur lequel la macro tourne
 
    PrinterDefault = Application.ActivePrinter
    Application.ActivePrinter = Imprimante_AdobePDF
 
    sNomFichierPS = ThisWorkbook.Path & "\" & "Essai_AdobbePDF.ps"
    sNomFichierPDF = ThisWorkbook.Path & "\" & "Essai_AdobbePDF.pdf"
    sNomFichierLOG = ThisWorkbook.Path & "\" & "Essai_AdobbePDF.log"
 
    '   Impression d'une zone nommée
    ActiveSheet.Range("Zone").PrintOut Copies:=1, Preview:=False, _
                                       ActivePrinter:="Acrobat PDF", PrintToFile:=True, _
                                       Collate:=True, PrToFilename:=sNomFichierPS
 
    Set PDFDist = New PdfDistiller
    PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""
    Set PDFDist = Nothing
 
    Kill sNomFichierPS
    Kill sNomFichierLOG
 
    Application.ActivePrinter = PrinterDefault
End Sub
 
Private Function Imprimante_AdobePDF() As String
Dim i As Integer
Dim NomPortReseau As String
    ' 11 imprimantes réseau
    For i = 0 To 10
        If i < 10 Then
            NomPortReseau = "Adobe PDF sur Ne0" & i & ":"
        Else
            NomPortReseau = "Adobe PDF sur Ne" & i & ":"
        End If
        On Error Resume Next
        Application.ActivePrinter = NomPortReseau
        If ActivePrinter = NomPortReseau Then
            Exit For
        End If
    Next i
    Imprimante_AdobePDF = NomPortReseau
End Function

16/10/2007, 13h05
Oussbaba au rhum

Citation:

Envoyé par kiki29

Pour me contredire moi même en encombrant le paysage, en combinant l'ensemble des codes fournis par Oussbaba au rhum et Ouskel'n'or, au final le code devrait être du style

:mouarf: elle est pas mal celle la :mouarf:

Voir 40 message(s) de cette discussion en une page