excel et Pdf

G

Guest

Guest

• 28 Octobre 2008

• #2

Re : excel et Pdf

Bonjour RvKgb,

Avec PDFCreator comme imprimante virtuelle:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ThisWorkbook.PrintOut
End Sub

A bientôt

 

Vote positif 0 Vote négatif

R

rvkgb

XLDnaute Occasionnel

• 28 Octobre 2008

• #3

Re : excel et Pdf

Bonjour Hasco,

merci pour la réponse mais ou je le colle ce maudit code? Débutant oblige;-)
rvkgb

 

Vote positif 0 Vote négatif

R

rvkgb

XLDnaute Occasionnel

• 28 Octobre 2008

• #4

Re : excel et Pdf

Re,

Çà y est, j'ai trouvé.😀
Si un jour, je veux le désactiver, je l'efface ou y a t-il une autre manip?
rvkgb

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 28 Octobre 2008

• #5

Re : excel et Pdf

Bonjour rvkgb, Hasco,

Pour désactiver, sans effacer, il te suffit de mettre, devant chaque ligne, une apostrophe ( le ' ), comme on le fait pour un commentaire.

Bon après-midi.

Jean-Pierre

 

Vote positif 0 Vote négatif

R

rvkgb

XLDnaute Occasionnel

• 28 Octobre 2008

• #6

Re : excel et Pdf

Bonjour jeanpierre,

Ca c'est fastoche.............merci beaucoup et bon après midi.
rvkgb

 

Vote positif 0 Vote négatif

R

rvkgb

XLDnaute Occasionnel

• 31 Octobre 2008

• #7

Re : excel et Pdf

Bonjour le forum,

Le code fonctionne très bien mais j'ai une question subsidiaire:
Si mon fichier contient plusieurs feuilles que je veux aussi en Pdf, seule la première est sélectionnée.
Y a t-il une astuce pour avoir un Pdf pour tous les onglets.
Merci de votre aide
rvkgb

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 31 Octobre 2008

• #8

Re : excel et Pdf

Bonjour Rvkgb,

Avec pdfCreator

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ActivePrinter = "PDFCreator sur Ne00:" 
   ThisWorkbook.PrintOut From:=1, To:=Sheets.Count
End Sub

Si tu veux rétablir l'imprimante par défaut avant fermeture du classeur:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Imprimante as string
Imprimante=Application.ActivePrinter
Application.ActivePrinter = "PDFCreator sur Ne00:"
ThisWorkbook.PrintOut From:=1, To:=Sheets.Count
Application.ActivePrinter=Imprimante
End Sub

A bientôt

 

Vote positif 0 Vote négatif

R

rvkgb

XLDnaute Occasionnel

• 31 Octobre 2008

• #9

Re : excel et Pdf

Bonjour Hasco, merci pour ta contribution rapide et efficace.
A bientôt
rvkgb

 

Vote positif 0 Vote négatif