imprimer pdf (cutpdf)

[jean]

Bonsoir tous le monde,

J'ai moi aussi un petit problème à résoudre si possible.
Voila, j'utilise cutpdf pour enregistrer mes factures en fichier pdf, j'ai ce code réalisé avec l'enregistreur de macro
Sub imprimPDF()
' imprimPDF Macro
' Macro enregistrée le 28/08/2005 par jean
Range('B2:H33').Select
Application.ActivePrinter = 'CutePDF Writer sur CPW2:'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
'CutePDF Writer sur CPW2:', Collate:=True
End Sub
cela marche très bien, mais je voudrais que le non du fichier s'inscrive automatiquement dans la boite de dialogue.

Le non du fichier se trouve dans une cellule concaténé, et change à chaque facture.
Quelqu'un peut il me donner un petit coup de pouce ce serait bien gentil.
Merci de vos réponses et bonne soirée à tout le monde.
jean

 

[pat1545.]

Salut,
moi j'utilise win2pdf et mon code est celui-ci:

Sub imprime_PDF()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, _
Collate:=True, prtofilename:=ActiveSheet.Name & '.pdf', ActivePrinter:='printer PDF'
End Sub

activesheet.name pourrait être remplacé par:

Mname = range('A1').value
et dans le code prttofilename=Mname & '.pdf'

Patrick

 

[jean]

Salut pat1545,
merci de me répondre,mais je ne pige pas bien ton code, pourrais tu adapter cela pour moi.
merci