Impression en pdf

Question

Lors des impressions automatique par macro, serait-il possible par ce chemin de pouvoir demander d'imprimer en PDF? Un joyeux Noel à tous Amicalement Noel...

Myta35 · Answer

Regarde du côté des imprimantes virtuelles style PrimoPDF Mytå...

CB60 · Answer

Voici un petit fichier, avec un USF qui gere les imprimantes, les feuilles, Je ne sais plus qui l'a réalisé ( je pense à Vériti ou Thierry). Moi j'utilise PDFcréator qui est gratuit http://telechargement.journaldunet.com/fiche/5331/2/pdfcreator/index.html...

vba-new · Answer

Pour choisir l'imprimante, tu modifies l'argument "ActivePrinter" de la méthode "PrintOut" Dans ton cas ce serait : Sheets(7).PrintOut Copies:=1, ActivePrinter:="XXXXXXXXXX", Collate:=True Pour connaître le nom complet de ton imprimante PDF, mets cette imprimante par défaut dans Fichier-&gt;Imprimer puis lance le code suivant : MsgBox Application.ActivePrinter Note ensuite le nom qui s'affiche dans la boîte de dialogue puis mets ce nom dans l'argument ActivePrinter à la place de XXXXXXXXXX...

Nad-Dan · Answer

Je pense, au vu de tes messages, avoir compris que tu veux afficher la boite d'impression et là choisir l'impression ssur imprimante ou vers *.pdf. Dans ton code utilise cette instruction puis clique sur PDF pour imprimer dans ce format. Application.Dialogs(xlDialogPrint).Show Amicalement et joyeux Noël également. Dan...

vba-new · Answer

Pour ma part, c'est vba-new mon pseudo Comme je l'ai mis dans mon message, tu dois remplacer le "XXXXXXXXXX" par le nom de ton imprimante PDF. Suis les instructions de la 2è partie de mon précédent message...

vba-new · Answer

Bon, voici les étapes à suivre :

1. Dans Fichier->Imprimer sélectionne ton imprimante PDF puis ferme la fenêtre comme suit :

2. Ensuite exécute le code suivant :

Sub Macro1()
    MsgBox Application.ActivePrinter
End Sub

Tu obtiens le nom exacte de ton imprimante PDF :

Dans mon cas le nom exact est "Adobe PDF sur Ne09:".

3. Mets ensuite le nom exact de ton imprimante PDF dans le code que tu as donné. Pour moi, ça ferait ça :

Sub MAIL_ReADH()
'lettre_divers Macro
Dim c As Range
Sheets(34).Select
For Each c In Range("a8:a" & Range("a65536").End(xlUp).Row)
With Sheets(7)
.Range("A1") = c.Offset
.Range("B7") = c.Offset(0, 9) 'N° Adh
.Range("E10") = c.Offset(0, 5) 'NOM & Prénoms
.Range("E11") = c.Offset(0, 6) ' Adresse1
.Range("E12") = c.Offset(0, 7) 'Adresse2
.Range("E13") = c.Offset(0, 8) ''CP-Ville
  .Range("a14") = c.Offset(0, 10) 'Cher
Sheets(7).PrintOut Copies:=1, ActivePrinter:="Adobe PDF sur Ne09:", Collate:=True
End With
Next
Sheets("tcd").Select
    With ActiveWindow
        .Width = 1024
        .Height = 750
    End With
     Application.Run "'GestionProg UFC (version 5).xls'!programme"
    Range("A5").Select
End Sub

Ça devrait marcher en théorie

vba-new · Answer

Aïe! Je ne connais pas du tout le code pour MAC.

As-tu un enregistreur de macro? Si oui, essaie d'enregistrer l'action de modification de ton imprimante par défaut pour voir le code que cela donne et poste le code ici.

Pas sûr de pouvoir t'aider plus!

Nad-Dan · Answer

Noel,

le code que je t'ai donné te met la fenetre te permettant de cliquer sur l'option PDF. Toutefois ce que tu dois savoir, c'est que le pdf ne s'effectue que sur une feuille et non sur le fichier complet.

Par rapport à ton code, j'essayerais de remplacer :

Sheets(7).PrintOut Copies:=1, Collate:=True

par

.activate
Application.Dialogs(xlDialogPrint).Show

De là tu as le choix de cliquer sur PDF pour sauvegarder.

Pour VBA-NEW : il faut que tu saches que l'option d'imprimer en PDF est une option fournie de base avec tout ordinateur MAC. Donc pas besoin d'acheter ou installer quoique ce soit.

Pour le code, l'enregistreur de macro donnera exactement la même chose que sous windows et le choix du PDF ne se fait pas comme tu l'as montré dans les photos ci-avant mais en cliquant sur le bouton PDF qui est préinstallé

Amicalement

Dan